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ABSTRACT 


This  thesis  investigates  the  design  and  implementation  of  an  intelligent  computer- 
assisted  instruction  system  for  visual  helicopter  recognition  training.  We  developed  the 
Helicopter  Recognition  Tutor  according  to  the  four-component  model  of  a  generalized 
intelligent  computer-assisted  instruction  system.  The  tutor  system  provides  an  interactive 
tutoring  environment  that  teaches,  reviews,  and  tests  visual  helicopter  recognition  skills  at 
a  level  relevant  to  the  student.  It  instructs  the  student  at  three  different  levels:  the  novice 
level,  the  intermediate  level,  and  the  expert  level,  based  on  the  student’s  understanding  of 
the  Wing,  Engine.  Tail,  Fuselage,  Undercarriage,  and  Rotor  (WETFUR)  features  of  a 
particular  helicopter. 
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I.  INTRODUCTION 


A.  BACKGROUND 

Computer-based  instruction  systems  have  been  under  development  since  the  early 
1960s.  The  primary  characteristic  of  these  systems  is  to  provide  an  interactive  learning 
environment  for  all  students  in  all  levels  of  education  and  training.  The  needs  of  each 
student  can  be  satisfied  by  individualizing  the  learning  experience.  In  most  of  today’s 
classrooms,  we  have  relatively  few  opportunities  for  students  to  receive  direct  attention 
from  the  instructors.  Although  human  tutors  can  provide  the  one-to-one  tutoring,  they 
may  be  too  costly.  Computer-based  instruction,  however,  can  integrate  the  knowledge  of 
many  experts  and  can  provide  interactive,  individualized  instruction  at  reasonable  cost. 

Although  computer-based  instruction  has  such  massive  potential,  it  has  not  been 
utilized  as  extensively  as  it  could  have  been.  One  of  reasons  for  this  is  the  absence  of 
ability  to  inference  or  reason.  To  successfully  teach,  computers  must  be  able  to  capture 
the  skill  of  inferencing  or  reasoning. 

Therefore,  Several  computer-assisted  instmetion  (CAI)  researchers,  who  have  a 
background  in  artificial  intelligence  (AI),  applied  various  AI  techniques  to  the  CAI 
system.  The  intention  of  their  effort  is  to  develop  a  new  class  of  instruction  system,  the 
intelligent  computer-assisted  instruction  (ICAI)  system. 

In  developing  an  ICAI  system,  the  most  important  part  to  consider  is  choosing  an 
appropriate  way  of  representing  the  knowledge  to  be  taught.  Another  major  consideration 


is  how  to  model  the  student’s  current  understanding  of  subject  matters.  The  ICAI  system 
then  reasons  from  one  item  of  knowledge  to  another  by  using  inferencing  procedures. 
This  thesis  will  investigate  the  possible  use  of  an  ICAI  system  for  training  soldiers  in 
helicopter  recognition. 

B.  OBJECTIVE 

Helicopters  have  become  more  important  in  military  combat  since  the  Vietnam  War. 
Nowadays,  helicopters  are  widely  used  in  various  military  missions,  for  example, 
transporting  personnel  and  cargo,  attacking  the  enemy,  and  so  on.  Therefore,  the  ability 
for  the  soldier  to  recognize  helicopters  becomes  one  of  most  important  training  missions 
in  the  military.  Although  there  exist  several  training  programs  for  visual  aircraft  or 
helicopter  recognition  today,  these  programs  usually  train  the  soldier  by  using  photos, 
drawings,  and  slides.  Moreover,  visual  helicopter  recognition  skills  are  not  easy  to  teach 
or  to  learn.  In  order  to  fill  a  gap  that  exists  in  most  visual  helicopter  recognition  training 
programs,  this  thesis  is  an  attempt  to  develop  a  useful  intelligent  computer-based  training 
tool  using  current  AI  techniques.  The  Helicopter  Recognition  Tutor,  which  we  developed 
over  the  past  months,  is  the  product  of  this  thesis.  The  tutor  is  designed  for  training 
purposes.  It  can  identify  a  soldier’s  current  ability  to  recognize  existing  helicopters  in 
operation,  and  then  teach  at  a  level  appropriate  to  that  ability.  Therefore,  it  is  useful  for 
introducing  visual  helicopter  recognition  to  new  soldiers  and  for  providing  refresher 
training  to  more  advanced  soldiers. 


C.  ORGANIZATION 


Chapter  II  provides  an  overview  of  intelligent  computer-assisted  instruction  systems. 
We  review  the  model  of  a  generalized  ICAI  system  and  some  applications  in  the  ICAI 
field.  Chapter  III  provides  an  overview  of  helicopter  recognition  and  current  training 
methods.  Chapter  IV  describes  the  design  and  implementation  of  the  Helicopter 
Recognition  Tutor.  The  results  and  evaluation  of  the  tutor  are  also  discussed  in  Chapter 
IV.  Finally,  Chapter  V  is  the  conclusion  and  discusses  our  achievements  and 
recommendations  for  future  work.  Appendix  A  contains  a  user’s  manual  for  the  tutor. 
Appendix  B  contains  the  source  code  for  the  tutor.  Appendix  C  provides  some  helicopter 
images  files  which  are  used  in  the  tutor. 


II.  OVERVIEW  OF  INTELLIGENT  COMPUTER-ASSISTED  INSTRUCTION 

SYSTEM 

A.  INTRODUCTION 

Since  the  early  1960s,  computer  technology  has  been  applied  in  all  levels  of 
education.  Many  educational  applications  of  computer  technology  have  been  developed. 
These  applications  include  grading  tests  and  solving  the  course  scheduling  problem.  In 
addition,  computers  are  also  uses  for  educational  purposes  outside  schools.  For  example, 
the  military  uses  computers  for  training.  The  industry  uses  computers  to  design  and 
manufacture  products.  Computer  application  in  education  was  generally  labeled 
computer-assisted  instruction  (CAI).  Intelligent  computer-assisted  instruction  (ICAI) 
systems  have  been  developed  because  there  were  many  flaws  in  CAI  systems.  These 
flaws  have  been  discussed  in  the  ICAI  literature  [Refs.l,  2].  Limitations  were  enumerated 
in  detail  by  Marlene  Jones  fRef.  3].  In  her  paper,  "Applications  of  Artificial  Intelligence 
within  Education",  she  asserts  that  most  CAI  systems  have  the  following  limitations: 

•  unable  to  understand  the  subject  matter  being  taught. 

•  unable  to  decide  (reason  about)  what  should  be  taught  next. 

•  unable  to  foresee,  diagnose,  and  understand  the  student’s  misconceptions. 

•  unable  to  impro'  -  or  update  current  teaching  strategies  or  learn  new  one. 

•  unable  to  do  conversations  with  students  in  the  student's  natural  language. 
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Some  researchers  working  in  the  fields  of  machine  learning,  knowledge 
representation,  natural  language  understanding,  and  expert  system,  realized  the  flaws  of 
CAI  systems  and  sought  to  incorporate  Artificial  Intelligence  (AI)  to  improve  the  quality 
and  effectiveness  of  CAI.  The  consequence  of  their  combined  effort,  is  a  new  class  of 
insUuction  system,  the  ICAI  system. 


B.  INTELLIGENT  COMPUTER-ASSISTED  INSTRUCTION  SYSTEMS 

In  this  section,  we  will  introduce  the  components  of  an  ICAI  system  and  some 
applications  that  have  been  developed  in  ICAI  systems. 


L  Components 

The  typical  model  of  an  ICAI  system  includes  the  following  components:  the 
expen  model,  the  student  model,  the  tutor  model,  and  the  communication  model  [Ref.  4]. 
Figure  2.1  depicts  a  generalization  of  the  components  of  an  ICAI  system. 


ICAI  SYSTEM 


Figure  2.1  Components  of  an  ICAI  System 


a.  Expert  Model 


The  expert  model  is  the  component  of  the  system  where  the  expertise  and 
information  concerning  the  subject  matter  is  represented  within  the  ICAI  system.  It 
serves  two  distinct  functions.  First,  the  expert  model  is  the  source  of  the  knowledge  to 
be  imparted  and  tested.  Second,  the  expert  model  provides  a  means  of  evaluating  the 
student’s  responses  [Ref.  5]. 

In  order  to  develop  an  effective  ICAI  system,  the  domain  knowledge  of 
the  expert  model  should  be  the  knowledge  of  several  experts  of  that  field.  In  addition, 
it  is  important  to  select  an  appropriate  representation  technique. 

b.  Student  Model 

The  student  model  is  the  component  of  the  system  in  which  infomiation 
concerning  what  the  student  knows  and  does  not  know,  and  the  student’s  understanding 
of  material  being  taught  is  gathered  and  represented.  The  purpose  of  the  student  model 
is  to  judge  the  student’s  knowledge.  In  addition,  it  forms  a  hypothesis  for  the  evaluation 
of  the  student’s  misconceptions  and  reasoning  strategies.  Thereby  the  tutor  model  can 
make  appropriate  suggestions  to  correct  any  misconceptions. 

In  many  ICAI  systems,  the  student  model  is  built  by  comparing  the 
student’s  responses  to  that  of  the  expert.  In  other  words,  the  model  represents  the 
student’s  knowledge  as  a  subset  of  the  expert’s  knowledge.  This  model  is  referred  to  as 
an  "overlay  model".  Another  model  called  the  "buggy"  model  represents  the  student’s 
mi.sconceptions  about  the  knowledge  domain.  [Ref.  6] 
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c.  Tutor  Model 


The  tutor  model  contains  the  theory  of  the  teaching  method  used  by  the 
system.  This  model  requires  the  subject  knowledge  and  the  teaching  strategies.  There 
are  many  teaching  strategies,  however  two  types  are  primarily  used  in  the  ICAI  systems. 
These  two  types  are  the  Socratic  method  and  coaching  method.  In  the  Socratic  method, 
the  student  is  given  questions  which  guide  them  through  the  process  of  debugging  their 
misconceptions.  On  fhe  other  hand,  the  coaching  method  encourages  learning  through 
activities  such  as  computer  games.  The  immediate  aim  of  the  student  is  to  have  fun, 
learning  and  skill  acquisition  is  an  indirect  result.  The  computer  "coach"  observes  the 
progress  of  the  game  and  offers  new  information  or  suggestions  as  needed.  Tutoring 
occurs  through  appropriate  interruptions  by  the  "coach”.  A  successful  computer  "coach" 
should  be  able  to  determine  what  skills  or  knowledge  the  student  is  likely  to  acquire 
based  on  their  playing  styles.  U  should  also  be  able  to  judge  effective  means  to  intercede 
during  playing  game  and  offer  advise  [Ref.  7). 

d.  Communication  Model 

The  communication  model  represents  the  medium  which  interfaces  with 
the  student.  This  model  serves  two  important  functions.  First,  the  model  interprets  the 
student’s  responses.  Second,  the  model  displays  the  system's  output  on  the  screen  [Ref. 
Park  1987].  Most  of  the  early  ICAI  systems  did  not  contain  an  explicit  communication 
model.  However,  in  recent  years,  the  development  of  sophisticated  and  expressive 
graphical  interface  and  improved  natural  language  understanding  system  have  made  the 
communication  model  an  indispensable  part  of  any  ICAI  system. 
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2.  Application  Examples 


SCHOLAR  was  one  of  the  earliest  ICAI  systems.  It  was  developed  in  1970. 
The  SCHOLAR  program  is  a  mixed-initiative  computer-based  tutor  that  teaches  students 
about  South  American  geography.  Both  the  student  and  the  tutor  system  could  start  a 
conversation  by  asking  questions.  It  was  a  pioneering  effort  in  the  development  of 
programs  which  handle  unanticipated  questions  and  generate  instructional  material  in 
varying  levels  of  detail,  based  on  the  context  of  the  dialogue  [Ref.  7]. 

WHY  tutors  students  in  the  causes  of  rainfall.  WHY  is  an  extension  of 
SCHOLAR.  It  also  implements  the  Socratic  method.  It  was  developed  to  fill  a 
requirement  for  systems  which  handle  subject  matters  that  are  not  factual  in  nature.  The 
student’s  errors  could  involve  not  only  forgotten  facts,  but  also  misconceptions  about  why 
processes  work  the  way  they  do.  [Ref.  7] 

SOPHIE  was  a  tutor  system  that  teaches  electronic  circuit  diagnosis. 
SOPHIE  allows  students  to  learn  and  acquire  problem  solving  skills  by  trying  out  their 
ideas,  rather  than  by  instructing.  The  system  contains  a  model  of  the  problem  solving 
knowledge  in  the  domain  and  heuristic  strategies  for  answering  the  student’s  questions 
and  dealing  with  misconceptions.  The  students  are  challenged  to  explore  their  own  ideas 
and  develop  conjectures  or  hypothesis  about  troubleshooting  strategies  for  electronic 
circuits.  The  function  of  the  expert  is  to  provide  detailed  feedback  concerning  the  logical 
validity  of  the  student’s  proposed  solutions.  [Refs.  5,  7] 

WEST  was  the  first  ICAI  system.  It  was  developed  to  tutor  students  in 
elementar\'  arithmetic.  The  coaching  method  used  in  the  WEST  system  provides  a 
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computer-based  learning  environment  where  the  student  is  involved  in  an  activity,  like 
playing  a  computer  game.  The  "coach"  observes  in  the  background  during  the  game  and 
sometime  offers  suggestions  for  improvement  [Ref.  7].  In  addition,  WUMPUS  was 
another  system  which  use  the  coaching  strategy.  The  system  challenges  the  student  in 
domain  of  logic,  probability,  decision  theory  and  geometry  [Ref.  7]. 

GUIDON  is  an  adaptation  of  the  MYCIN  expert  system  for  medical 
diagnosis.  Its  mix-initiative  dialogue  differs  from  that  of  other  ICAI  systems  in  its  use 
of  prolonged  and  structured  interactions.  It  does  more  than  simply  respond  to  the 
student’s  last  action  (as  in  WEST  and  WUMPUS)  and  repetitive  questioning  and 
answering  (as  in  SCHOLAR  and  WHY).  GUIDON  showed  that  we  could  treat  the 
tutoring  knowledge  as  a  rule-based  system  itself  by  moving  tutoring  knowledge  apart 
from  subject  knowledge.  [Ref.  7] 

BUGGY  was  developed  to  determine  correctly  the  student’s  misconceptions 
about  basic  mathematical  skills.  The  idea  of  the  BUGGY  tutor  is  attempting  to  identify 
the  misconceptions  the  student  may  have  in  solving  a  problem  by  using  a  catalog  of 
common  problems.  The  system  categorizes  common  mathematical  errors.  When  the 
student  makes  a  mistake,  the  system  tries  to  identify  errors  by  matching  the  procedure 
which  the  student  used  in  solving  the  problem  with  its  knowledge  domain  of  "buggy" 
procedures.  Once  the  match  is  made,  the  tutor  can  explain  the  student’s  errors  and  teach 
in  such  manner  that  help  the  student  to  understand  the  problem  as  well  as  its  solutions. 

The  Aircraft  Recognition  Tutor  was  developed  for  the  aircraft  recognition 
training  in  the  military.  The  tutor  system  was  designed  and  implemented  according  to 
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the  four  component  models  of  a  generalized  ICAI  system.  It  uses  the  coaching  method 
and  provides  a  "learn  by  fun"  training  environment,  such  as  a  computer  game.  Its  domain 
knowledge  and  the  tutorial  knowledge  are  well  structured  and  good  for  the  fixed-wing 
aircraft  recognition  training.  The  system  also  provides  the  simple  and  intuitive  user’s 
interface  for  the  user  to  communicate  with  the  system.  The  user  interface  is  not 
attractive,  since  the  tutor  uses  the  CGA  640x200  two  color  modes.  Because  helicopter 
recognition  is  taught  in  the  similar  manner  as  fixed-wing  aircraft  recognition  and  the 
system  model  is  well  structured  and  modular,  the  tutor  system  can  be  easily  modified  to 
be  suitable  for  the  helicopter  recognition  training.  In  this  thesis,  these  modifications  have 
been  done  by  defining  the  features  that  helicopters  possess  and  defining  the  helicopter 
objects.  In  other  words,  we  creates  a  new  knowledge  domain  for  helicopters.  In  addition, 
we  uses  the  VGA  640x480  sixteen  color  mode  to  make  the  user  interface  more  attractive. 
[Ref  10] 

C.  SUMMARY 

ICAI  systems  are  developed  by  applying  AI  techniques  to  CAI  systems.  It  is  seen 
as  very  possible  that  the  role  of  Al  in  computer-based  applications  establishes  a  new  type 
of  learning  environment. 

The  four  component  model  of  a  generalized  ICAI  is  widely  accepted  by  current 
ICAI  researchers.  These  four  components  are  the  expert  model,  the  student  model,  the 
tutor  model  and  the  communication  model.  Although  there  are  different  opinions  about 
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the  particular  functions  that  each  component  model  should  perform,  there  is  little  dispute 
about  the  entire  framework  of  the  system  model. 


Some  applications  of  ICAI  systems  have  been  described  in  this  chapter.  These 
systems  do  not  demonstrate  that  they  can  be  used  completely  and  effectively  in  training 
or  classroom  situations  within  the  four  component  models.  But  each  system  does 
demonstrate  varying  amounts  of  completeness  for  each  model.  For  example,  SOPHIE 
has  a  good  tutor  model,  but  a  poor  student  model  [Ref.  8].  There  are  still  many  other 
applications  which  can  be  found  in  books  concerning  ICAI  system  research,  such  as 
Artificial  Intelligence  and  Tutoring  Systems  and  The  Handbook  of  Artificial  Intelligence 
(Refs  5,  71. 
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III.  OVERVIEW  OF  HELICOPTER  RECOGNITION 


A.  PURPOSE 

Helicopters  first  saw  service  in  the  Korean  War  during  the  1950s  and  were  widely 
used  in  the  Vietnam  Conflict.  Today,  they  are  widely  exploited  in  the  areas  of 
agriculture,  public  service,  and  military  operations,  among  which  the  latter  one  is  the  most 
commonly  seen.  Some  characteristics  of  helicopters  include: 

•  little  restrictions  from  geography  or  airfields, 

•  high  mobility, 

•  high  degree  of  safety. 

Therefore,  for  military  purposes,  they  are  generally  used  in 

•  transporting  cargos  and  personnel, 

•  launching  surprise  attacks  and  assaults, 

•  detecting  submarines, 

•  sw'eeping  and  deploying  mines. 

In  the  foreseeable  future,  helicopters  will  play  an  even  more  important  role  in  militarj' 
combats.  [Ref.  9] 

Therefore,  it  is  imperative  to  be  able  to  distinguish  the  helicopters  of  different 
parties  in  a  confrontation.  If  we  cannot  identify  positively  whether  the  helicopter  which 
reaches  attack  range  is  friendly  or  not,  it  may  cause  heavy  casualties  on  our  side. 
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Therefore,  it  is  crucial  to  train  military  personnels  to  recognize  friendly  or  unfriendly 
helicopters  in  order  to  reduce  the  possible  threat. 


B.  BASICS  OF  HELICOPTER  RECOGNITION 

The  current  best  method  for  teaching  visual  aircraft  recognition  is  based  on  the 
following  features  of  aircraft:  wings  to  provide  lift,  an  engine  to  provide  motive  power, 
a  fuselage  to  carry  the  payload  and  controls,  and  a  tail  assembly  which  usually  serves  the 
purpose  of  controlling  the  direction  of  flight.  This  method  is  called  the  WEFT  theory'. 
[Ref.  10] 

This  theory  can  be  applied  to  helicopters,  except  that  wings  appear  only 
occasionally  in  stub  fomi,  the  tail  structure  consists  of  rear  rotors  and  some  miniature 
tails,  and  the  main  rotor(s)  dominates  the  shape  [Ref.  10].  In  addition,  the  type  of 
helicopter  undercarriage  is  also  a  key  feature  for  recognition.  In  order  to  accomplish 
helicopter  recognition,  this  thesis  will  slightly  modify  the  WEFT  theory  to  a  new  theory. 
The  new  theory  consists  of  major  features  for  helicopter  recognition  .  It  is  called  the 
WETFUR  (Wing,  Engine,  Tail,  Fuselage,  Undercarriage,  Rotor)  theory. 

The  WETFUR  theory  of  helicopters  is  described  as  follows: 

•  Wing:  Only  a  few  helicopters  have  wings,  usually  in  stub  form;  most  have  no 
wings. 

•  Engine:  Engine  type  and  numbers  play  a  role  in  identifying  a  particular  helicopter. 
Engine  types  include  turboshaft,  turbofan,  and  piston. 

•  Tail:  The  position  and  the  number  of  horizontal  stabilizers  can  be  used  for 
helicopter  recognition.  The  horizontal  stabilizers  may  be  located  in  the  middle  or 
on  the  end  of  the  tail  boom.  The  helicopter  may  have  half,  full  or  no  horizontal 
stabilizers. 
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•  Fuselage:  The  helicopter  tail  boom  is  the  main  part  of  fuselage.  It  generally  can 
be  classified  as  one  of  two  kinds,  the  open  tail  boom,  or  the  fair  tail  boom. 

•  Undercarriage:  The  helicopter  undercarriage  can  be  classified  as  the  skid 
undercarriage,  the  wheeled  undercarriage,  and  the  retractable  unaercarriage. 

•  Rotor:  There  are  two  kinds  of  helicopter  main  rotors,  the  single  rotor,  and  the  twin 
rotor. 

C.  TRAINING  PROGRAMS 

There  are  several  aids  for  training  personnel  in  visual  helicopter  recognition.  These 
aids  include  photos,  card  sets,  slides  ,  movies,  models  and  drawings.  Most  of  these  aids 
are  used  in  helicopter  recognition.  The  training  programs  that  are  often  used  include 
session,  classroom  training,  and  supplemental  resources. 

Training  sessions  in  helicopter  recognition  can  be  provided  to  allow  soldiers  to 
become  familiar  with  various  existing  helicopters.  During  these  sessions,  the  instructor 
points  out  key  identifying  features  by  using  slides  of  helicopter  photos  along  with 
silhouettes  or  models  and  suggests  memory  aids  to  help  the  soldiers  remember  the 
helicopters  along  with  features. 

Some  training  units  provide  classroom  training  in  helicopter  recognition.  In  this 
case,  a  knowledgeable  instructor  not  only  introduces  the  features  of  visual  helicopter 
recognition  by  using  helicopter  photos  or  silhouettes,  but  also  supplies  soldiers  with 
comparison  feedback  for  wrong  answers.  This  type  of  training  in  helicopter  recognition 
has  its  limitations,  since  the  time  needed  for  individual  instruction  and  the  number  of 
knowledgeable  instructors  is  usually  limited. 
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Supplemental  resources  available  for  recognizing  helicopters  include  books  such  as 
Jane’ s  World  Aircraft  Recognition  Handbook  [Ref.  11]  and  flash  cards,  with  line  drawings 
or  silhouettes. 
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IV.  HELICOPTER  RECOGNITION  TUTOR 


The  Helicopter  Recognition  Tutor  was  designed  and  implemented  on  an  IBM 
compatible  personal  computer  using  the  Turbo  Pascal  V6.0  programming  language.  In 
order  for  future  improvements  or  changes  to  be  made  to  the  individual  components  of  the 
tutor,  the  Object  Oriented  Programming  (OOP)  methodology  was  used  to  develop  the 
tutor.  The  OOP  concept  gives  the  tutor  development  more  structure  and  modularity, 
better  abstraction,  and  reusability.  In  other  words,  all  these  features  add  up  to  code  that 
is  more  structured,  extensible,  and  easy  to  maintain  [Ref.  12]. 

A.  ARCHITECTURE 
1.  Expert  Model 

The  expert  model  is  the  component  of  the  system  in  which  all  of  the  expertise 
and  information  about  the  subject  matter  is  represented  in  an  ICAI  system.  In  the 
helicopter  recognition  tutor,  the  expert  model  is  composed  of  the  helicopter  images  stored 
in  binary  format  and  WETFUR  descriptions  stored  in  text  format.  Each  helicopter  exists 
in  the  program  as  a  composite  object,  thus  encompassing  both  the  textual  and  binar>' 
information  about  the  helicopter,  as  well  as  the  functions  and  procedures  that  are  used  to 
operate  on  that  information. 

The  helicopter  images  that  are  contained  in  the  system  came  from  Jane’ s 
World  Aircraft  Recognition  Handbook  [Ref.  11).  They  were  scanned  in  by  using  a 
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scanner  with  the  PCX  file  format.  These  images  were  then  brought  into  a  software 
package  called  VGA  Paint,  where  the  resolution  of  image  was  changed  to  match  that  of 
the  monitor  in  the  tutoring  system  (VGA  640x480,  16  colors),  resized,  and  cleaned  up. 
Since  the  images  still  exist  in  the  PCX  format,  they  could  be  easily  modified  by  using  any 
PCX  compatible  paint  program,  for  example,  PC  Paintbrush. 

2.  Student  Model 

The  student  model  reflects  the  student’s  proficiency  in  helicopter  recognition. 
It  receives  performance  evaluations  w'ith  respect  to  the  knowledge  that  the  student  is 
expected  to  acquire  from  the  tutor  model.  In  other  words,  it  tracks  student  performance 
information,  as  well  as  the  student’s  current  level  or  mode. 

Each  student  that  uses  the  tutor  system  will  have  his  own  student  model. 
When  a  new'  student  enters  the  system,  the  system  first  diagnoses  the  student’s  ability  in 
helicopter  recognition  in  order  to  decide  the  appropriate  level  and  mode  at  which  the 
student  should  begin.  The  system  then  assigns  the  student  a  default  model  which 
corresponds  to  the  level,  and  begins  to  teach  a  session  at  the  level.  The  tutor  system 
cont'.iins  a  utility  that  allow's  the  student  model  database  to  be  accessed.  This  utility 
provides  the  performance  information  about  the  student. 

3.  Tutor  Model 

The  tutor  model  is  the  component  of  the  system  which  chooses  problems  to 
be  solved,  evaluates  performance,  and  provides  assistance.  It  perfomis  two  distinct 
function:  (1)  detennination  of  the  student’s  instructional  needs  and  (2)  selection  and 
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presentation  of  domain  knowledge  [Ref.  13].  The  tutor  model  in  the  Helicopter 
Recognition  Tutor  is  composed  of  three  user  levels:  Novice,  Intermediate,  and  Expert,  and 
three  modes;  Teach,  Review,  and  Test.  Figure  4.1  shows  the  component  structure  of  the 
tutor  model. 


Figure  4.1  Component  Structure  of  the  Tutor  Model 


a.  Novice  Level 

In  this  level,  the  tutor  introduces  the  WETFUR  features  to  the  student  by 
displaying  a  generic  helicopter.  In  Review  mode,  all  of  the  features  introduced  in  the 
Teach  mode  are  displayed  randomly.  The  student  is  then  expected  to  identify  these 
features,  and  the  tutor  takes  an  appropriate  course  of  action  which  is  based  on  the 
student’s  response. 
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b.  Intermediate  Level 


In  the  intermediate  level,  the  tutor  teacues  the  WETFUR  features  of  each 
individual  helicopter  by  presenting  a  visual  image  of  the  helicopter  and  identifying  the 
WETFUR  features  which  differentiate  that  particular  helicopter  from  the  others.  In 
Review  mode,  each  helicopter  is  presented  randomly  but  completely  and  the  student  is 
allowed  to  identify  the  helicopter  by  name  and  nomenclature.  The  tutor  then  takes  action 
based  on  the  student’s  response.  In  Test  mode,  the  tutor  presents  the  student  w'ith  each 
helicopter  from  a  default  set  of  test  cases,  allowing  the  student  to  identify  the  helicopter. 
A  record  of  the  student’s  performance  will  be  maintained  by  the  system. 

c.  Expert  Level 

In  this  level,  no  visual  image  of  the  helicopter  is  presented  to  the  student. 
The  tutor  reviews  and  tests  the  student  based  on  the  WETFUR  features  of  the  helicopter. 
The  tutor  takes  action  based  on  the  student’s  response  and  corrects  the  student’s 
misconception.  A  record  of  the  student’s  performance  will  be  maintained  by  the  system. 

4.  Communication  Model 

The  communication  model  provides  the  tutor  system  with  the  user  interface 
and  a  control  program  that  serves  to  control  the  actions  of  the  other  three  models, 
including  interaction  between  these  models.  The  interface  for  the  system  is  graphically 
oriented.  It  is  composed  of  several  distinct  functions:  menus  to  receive  information  and 
choices  from  the  student,  dialogue  boxes  to  communicate  with  the  student,  and  help 
screens  to  give  the  student  context  sensitive  help  infomiation.  "Hot"  keys  allow  the 
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students  to  easily  quit  what  they  are  doing,  request  help,  or  interrupt  the  tutor.  In  order 
to  encourage  the  students  to  learn,  the  tutor  system  also  includes  a  computer  game  mode. 
Performance  in  the  game  mode  of  the  system  is  not  tracked  in  the  student  model. 


Figure  4.2  Program  Structure  of  the  Tutor  System 


B.  DETAILS  OF  IMPLEMENTATION 

The  tutor  system  is  composed  of  an  install  program,  and  the  tutor  program.  The 
tutor  program  consists  of  a  main  program  and  several  units.  Figure  4.2  shows  the 
program  structure  of  the  Helicopter  Recognition  Tutor. 

1.  Pregram  Install 

This  program  is  u.sed  for  installing  the  Helicopter  Recognition  Tutor  on  the 
user's  personal  computer.  The  program  provides  instructions  on  the  screen  to  allow  the 
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user  to  complete  the  installation.  It  also  check  to  see  that  the  user’s  system  meets  all  of 
the  requirements  for  running  the  tutor.  For  instance,  the  program  checks  if  a  VGA 
adapter  is  present,  checks  for  or  creates  a  subdirectory  called  HP,  and  checks  if  disk  space 
is  available  for  the  tutor. 

2,  The  Tutor  Program 

The  tutor  system  consists  of  a  main  program  called  HPT  and  several  units 
used  by  the  main  program. 

a.  Program  HPT 

This  program  is  the  main  program  for  the  tutor  system.  It  first  makes  sure 
that  the  user’s  computer  is  compatible  with  the  tutor  system  by  using  the  PCX  utility. 
It  also  presents  the  main  menu  to  the  user  and  passes  control  to  the  other  units  based  on 
the  user's  input. 

b.  Unit  Hpscreen 

The  screen  object  class  is  defined  in  this  unit.  The  purpose  of  this  unit  is 
to  allow  other  classes  to  inherit  methods  and  variables  that  they  have  in  common. 

c.  Unit  Hpdialog 

The  purpose  of  this  unit  is  to  define  the  dialogue  object  c’ass.  A  dialogue 
object  is  an  interactions  dialogue  bo.x  that  is  shown  on  the  screen.  An  interaction 
dialogue  box  provides  either  textual  messages  to  the  user  or  a  location  for  the  user  to 
input  message. 
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d.  Unit  Helicopt 

The  helicopter  object  class  is  defined  in  this  unit.  Helicopter  objects  are 
composed  of  a  record  that  contains  the  WETFUR  information  about  the  helicopter,  and 
redefines  the  procedures  and  methods  inherited  from  the  screen  object  class. 

e.  Unit  Menus,  Unit  NMenus,  and  Unit  MMenus 

The  purpose  of  these  units  is  to  provide  several  menus,  including  a  main 
menu,  a  help  menu,  a  setup  menu,  a  menu  for  helicopter,  and  a  menu  for  WETFUR 
features  for  the  user  to  select  the  desired  item. 

/.  Unit  Helpshow  and  Unit  Help 

The  purpose  of  these  two  units  is  to  provide  the  context  sensitive  help  for 
the  user.  All  of  files  containing  help  information  were  created  by  a  paint  program,  VGA 
Paint.  The  format  of  the  files  is  PCX  file  format. 

g.  Unit  Students 

The  student  model  object  is  defined  in  this  unit.  The  purpose  of  this  unit 
is  to  create  an  individual  student  model  database  that  contains  all  of  the  information 
known  about  each  student.  The  information  includes  a  student’s  name,  current  level  and 
mode,  the  latest  test  score,  and  the  number  of  helicopters  shown  and  missed  during  the 
current  level  and  mode.  This  unit  also  defines  procedures  to  get,  update,  and  save  the 
student  model,  and  functions  to  get  and  add  entries  to  the  model. 


h.  Unit  Game 


In  order  to  encourage  the  user  to  use  the  tutor  system,  this  unit  is 
designed  to  provide  a  game  mode  for  the  user.  This  unit  contains  procedures  that  control 
the  one  or  two  player  game  mode. 

i.  Unit  Hptutor 

The  purpose  of  this  unit  is  to  manage  the  teaching  strategy  for  the 
helicopter  recognition.  This  unit  is  composed  of  several  procedures  and  functions.  These 
include  procedures  to  diagnose  the  student’s  level,  take  an  action  corresponding  to  the 
level  where  the  student  is,  and  evaluate  the  student’s  performance.  This  unit  also  defines 
functions  that  display  WETFUR  features  of  helicopters  and  compare  WETFUR  features 
of  two  helicopters. 

j.  Unit  Utility 

This  unit  defines  a  set  of  procedures.  The  purposes  of  these  procedures 
are  to  allow  the  system  administrator  to  select  the  helicopter  that  will  be  taught  by  the 
system  from  among  those  defined,  to  add  to  or  modify  the  helicopters  that  are  defined  in 
the  system,  and  to  retrieve  a  student  report. 

C.  RESULTS  AND  EVALUATION 

The  Helicopter  Recognition  Tutor  was  designed  to  run  on  existing  personal 
computers  with  a  VGA  graphics  adapter.  The  tutor  program  consists  of  a  main  program 
and  a  set  of  units  used  by  the  main  program.  The  source  code  for  the  tutor  system  is 
in  Appendix  B.  The  tutor  system  was  tested  on  a  database  that  included  27  helicopters 
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and  their  WETFUR  features.  Test  runs  were  finished  by  the  students  that  have  different 
abilities  in  helicopter  recognition.  In  Appendix  A,  the  user’s  manual  explains  the  tutor 
system  use.  The  system  requirements  are  also  listed  in  the  user’s  manual. 

We  believe  that  the  best  way  to  progress  in  helicopter  recognition  is  to  "look  and 
learn”  as  frequently  as  possible.  Since  the  tutor  is  developed  for  visual  helicopter 
recognition  training  and  can  be  operated  on  a  personal  computer,  students  may  use  the 
tutor  to  learn  helicopter  recognition  as  often  as  necessary.  In  addition,  the  game  mode 
of  the  tutor  provides  a  "learn  by  fun"  environment  and  encourages  frequent  use  of  the 
system. 

D.  A  SAMPLE  SESSION 

The  following  screen  displays  depict  a  sample  tutoring  session  in  the  Helicopter 
Recognition  Tutor.  Figure  4.3  shows  a  screen  image  with  a  main  menu  that  provides  five 
selections  for  the  user.  For  example,  the  user  selects  the  "TUTOR"  item  to  enter  the  tutor 
mode. 


f  ivr  AIN  ivt  e:  N  u 

'X’ T  J  "I"  O  J-i 

G  A  IVE  E 

s:  E  x:"  UT 

H  E  L 

c  E  x:  I  X"  > 

Figure  4,3  Main  Menu  Display 
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Once  the  new  user  has  entered  the  tutor  mode,  the  system  diagnoses  the  user’s 
level  of  ability  in  helicopter  recognition  based  on  the  WETFUR  features.  Figure  4.4 
shows  a  typical  screen  display  for  the  diagnosis. 


Figure  4.4  The  Diagnosis  Display 


After  the  system  has  finished  diagnosing  the  user’s  ability,  the  system  determines 
which  level  is  appropriate  for  the  user.  For  example,  if  the  user  is  in  the  novice  level 
then  the  system  begins  in  the  teach  mode.  In  the  teach  mode,  the  system  presents  a 
particular  helicopter  image  and  its  WETFUR  features  to  the  user.  Figure  4.5  shows  a 
typical  screen  display  for  a  u.ser  in  the  novice  level  and  in  the  teach  mode.  The  user  can 
press  the  <Esc>  key  to  quit  any  time  during  the  process. 
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Figure  4.5  The  Teach/Novice  Display 


The  above  descriptions  simply  describes  one  of  the  many  purposes  of  the  tutor 
system.  The  following  figures  depict  other  purposes  that  the  system  may  fulfill.  Figure 
4.6  shows  a  typical  screen  display  of  the  one-player  game  mode.  Figure  4.7  shows  a 
sample  "Help"  screen  display. 
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Figure  4.7  A  sample  Help  Display 
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CH.  1  INTRODUCTION 


I.  INTRODUCTION 

Helicopter  recognition  training  is  required  for  any  soldier  in  the  militar>'.  It 
is  often  taught  by  a  military  instructor  using  slides,  photos,  drawings  and  other 
training  methods. 

The  purpose  of  developing  this  Helicopter  Recognition  Tutor  is  to  show  that 
we  could  use  existing  AI  (Artificial  Intelligent)  techniques  and  technology  in 
computer  science  to  develop  a  computer-based  training  system.  This  tutor  system 
is  designed  to  identify  the  soldier’s  current  ability  in  recognizing  helicopters  and 
teach  them  at  a  level  suitable  to  that  ability. 

How  to  teach  the  soldier  to  identify  a  helicopter  is  based  on  the  WETFUR 
theory  (Wing,  Engine,  Fuselage,  Undercarriage,  and  Rotor).  It  is  of  use  to 
introduce  visual  hei  opter  recognition  to  new  soldiers  and  give  refresher  training 
to  more  advaf’Cs^u  soldiers,  since  this  tutor  is  developed  to  identify  the  soldiers 
current  ?’';;lity  and  teach  at  a  level  appropriate  to  that  ability. 
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II.  INSTALLATION 

This  chapter  tells  you  how  to  install  the  Helicopter  Recognition  Tutor  on  your 
PC  compatible  computer.  This  tutor  requires  a  PC  compatible  equipped  with  the 
following  features: 

•  A  hard  disk  with  at  least  6  MB  free  and  one  3.5"  floppy  disk  drive. 

•  A  minimum  of  512K  of  memory  installed  on  your  system. 

•  Dos  version  2.1  or  higher. 

•  VGA  or  super  VGA. 

The  following  steps  tell  you  how  to  install  the  Helicopter  Recognition  Tutor 
on  your  own  computer. 

1.  Power  on  your  computer,  then  type  C:  and  place  the  install  disk  (disk  1)  in 
drive  A  or  3  (which  depends  on  where  your  3.5"  is  placed).  Type  A:  or  B: 
and  press  Enter. 

2.  Type  INSTALL  and  press  Enter.  Tutor’s  INSTALL  program  will  lead  you 
through  the  installation  procedures. 

3.  Follow  the  installation  procedures  shown  on  your  screen. 

As  soon  as  the  installation  has  completed,  you  can  run  the  Tutor  by  typing 
HPT  in  the  HP  subdirectory. 
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III.  USING  THE  TUTOR 

The  tutor  mode  of  the  tutor  system  is  composed  of  three  levels:  Novice, 
Intermediate,  and  Expert,  and  three  tutoring  modes:  Teach,  Review,  and  Test. 
Figure  3.1  depicts  the  structure  of  the  tutor  mode. 


Figure  3.1  Structure  of  the  Tutor 

When  a  student  wants  to  use  the  tutor  mode,  the  student  has  to  select  the 
"Tutor"  item  from  the  Main  Menu.  The  system  will  ask  the  user  to  enter  an 
individual  student's  ID.  If  a  new  student  is  encountered,  the  system  asks  for  the 
student's  name.  The  system  then  diagnoses  the  student’s  level  of  ability  at  visual 
helicopter  recognition  by  presenting  ten  helicopter  to  the  student.  The  student  is 
asked  to  recognize  each  helicopter  based  on  the  WETFUR  features.  If  the  student 
incorrectly  responds  to  2  or  more  of  the  10  helicopters,  he  will  begin  at  the 


34 


4  -  CH.  3  USING  THE  TUTOR 


Novice  Level.  If  the  student  correctly  responds  to  9  or  10,  he  will  begin  at  the 
Intermediate  Level. 

A.  Novice  Level 

The  Novice  Level  is  for  students  that  are  new  to  visual  helicopter 
recognition  and  have  not  mastered  the  WETFUR  features  of  helicopters.  The 
teach  mode  and  the  review  mode  are  available  in  this  level.  In  the  teach  mode, 
the  student  are  taught  the  WETFUR  features.  In  the  review  mode,  WETFUR 
features  are  presented  randomly.  The  system  then  asks  the  student  to  identify  the 
WETFUR  features  or  helicopter,  and  takes  actions  ba.sed  on  the  student’s  response. 

IL  Intermediate  Level 

The  Intermediate  Level  is  for  students  that  have  a  capability  to  recognize 
WEiTFUR  features  of  helicopter.  In  this  level,  students  learn  to  identify  specific 
helicopters  visually  based  on  their  WETFUR  features.  There  are  three  tutoring 
modes  in  this  level:  teach,  review,  and  test.  In  the  teach  mode,  students  are  taught 
the  WETFUR  features  visible  on  specific  helicopter.  In  the  review  mode,  each 
helicopter  is  presented  on  the  screen.  The  system  then  asks  the  student  to  identify 
the  WETFUR  features  or  helicopter,  and  takes  actions  based  on  the  student’s 
response.  In  the  test  mode,  the  student  is  presented  with  each  helicopter.  The 
system  then  asks  the  student  to  identify  the  helicopter,  and  keeps  a  record  of  the 
student's  performance.  If  the  student’s  perfomiance  is  poor,  the  student  may  be 
forced  to  revert  to  a  lower  level. 
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C.  Expert  Level 

The  Expert  Level  is  for  students  that  have  mastered  the  WETFUR  features 
of  helicopters  very  well.  In  this  level,  there  are  two  tutoring  modes:  review  and 
test.  In  these  two  modes,  the  system  does  not  present  any  helicopter  images  to 
students.  Students  have  to  identify  a  helicopter  based  on  a  description  of  the 
WETFUR  features  that  the  helicopter  has.  In  addition,  the  student’s  performance 
will  be  maintained  by  the  system.  If  the  student’s  performance  is  poor,  the 
student  will  be  forced  to  revert  to  a  lower  level. 


D,  Some  Useful  Keys 

In  the  tutor  system,  some  useful  keys  have  a  special  purpose.  They  are 
described  as  follows: 


Press 

llllllllllll 

<Enter> 


<Esc> 

C 

H 

O 

T 


to 

lllllllllllllllllllllllllll 

Select  the  item  that  is  highlighted, 
if  a  menu  exists;  Cause  the  program  to 
continue  after  it  has  paused,  if  a  menu 
doesn’t  exit. 

Quit  what  you  are  doing. 

Continue  with  the  next  tutor  session,  if  the 
current  tutor  session  is  finished. 

Get  a  help  message. 

Allow  Player  1  to  identify  helicopter,  when 
the  system  is  in  the  one-player  game  mode. 
Allow  Player  2  to  identify  helicopter,  when 
the  system  is  in  the  two-player  game  mode. 
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Up  Arrow  Key 
Down  Arrow  Key 
PgUp 
PgDn 


Highlight  the  item  above  the  one  currently 
highlighted  in  a  menu. 

Highlight  the  item  below  the  one  currently 
highlighted  in  a  menu. 

Cause  the  previous  8  selections  to  be  shown 
in  a  menu. 

Cause  the  next  8  selections  to  be  shown  in 
a  menu. 

Scroll  through  the  WETFUR  features  in 
forward  order,  when  the  system  is  in  the 
expert  level. 

Scroll  through  the  WETFUR  features  in 
reverse  order,  when  the  system  is  in  the 
expen  level. 
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IV.  PLAYING  THE  GAME 

There  are  two  game  modes  in  the  tutor  system.  One  is  the  one-player  game 
mode,  the  other  is  the  two-player  game  mode. 

In  the  one-player  game  mode,  a  student  plays  against  the  system.  A  helicopter 
will  appear  on  two  sides  of  the  screen  panel,  when  the  game  begins.  If  the  player 
wants  to  identify  the  helicopter,  he  must  press  the  "O"  key.  The  player  is  then 
given  a  chance  to  identify  the  helicopter  in  the  menu  that  will  appear.  Time  for 
identifying  the  helicopter  is  limited.  If  the  user  does  not  enter  the  answer  within 
the  time  limit,  the  system  opponent  will  display  the  answer  on  the  screen.  The 
game  will  show  25  helicopters.  The  winner  is  the  player  who  gets  the  highest 
score. 

In  the  two-player  game  mode,  two  players  compete  against  each  other.  The 
key  for  Player  1  is  the  "O"  key,  and  the  key  for  Player2  is  the  "T"  key.  25 
helicopters  are  displayed  during  the  game.  The  winner  is  the  player  who  gets  the 
highest  score. 
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V.  USING  UTILITIES 

The  Setup  mode  of  this  tutor  system  provides  the  various  utilities  for  the 
system  administrator  to  manage  the  tutor  system  and  maintain  the  database.  When 
a  student  wants  to  use  the  various  utilities,  the  student  have  to  select  the  "Setup" 
item  from  the  Main  Menu.  The  system  then  requests  the  student  to  enter  a 
password.  Once  the  password  is  entered  correctly,  the  Setup  Menus  appears  on 
the  screen.  If  the  password  is  entered  incorrectly,  the  system  returns  to  the  Main 
Menu.  The  password  can  be  found  on  the  cover  of  the  use’s  manual. 

The  Setup  mode  of  this  tutor  system  serves  three  purposes:  (1)  selecting  the 
helicopter,  (2)  adding  or  modifying  the  helicopter,  and  (3)  getting  a  student  report. 
They  will  be  described  in  the  following  sections. 

A.  Selecting  the  Helicopter 

The  "Select  Helicopter"  utility  allows  the  system  administrator  to  select  the 
helicopter  that  will  be  taught.  The  default  list  of  helicopters  is  in  Appendix  C  of 
this  manual.  Select  the  helicopter  that  is  to  be  included  in  the  system  from  the 
menu.  Continue  the  selection  process  until  all  of  the  helicopters  that  will  be 
taught  have  been  selected.  When  you  have  finished,  press  <Esc>  to  return  to  the 
Setup  Menu.  In  order  to  reach  a  high  quality  of  training,  we  recommend  that  you 
select  all  of  the  helicopters  that  you  want  to  be  included  in  the  system. 

B.  Adding  or  Modifying  Helicopter 

If  you  want  to  add  a  new  helicopter  to  the  system,  please  use  a  scanner  to 
scan  three  views  (front,  side,  and  bottom)  of  the  helicopter  from  Jane’s  World 
Aircraft  Recognition  Handbook.  When  it  is  completed,  please  do  the  following 
steps  to  add  or  modify  helicopter. 
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1.  Select  the  "Add/Modify  Helicopter"  item  from  the  Setup  menu,  and  press 
<Enter>. 

2.  Two  dialogue  boxes  are  displayed  on  the  screen.  They  remind  you  to  create 
the  helicopter  images,  before  you  use  this  utility. 

3.  When  the  helicopter  name  is  requested,  type  in  the  name  of  the  helicopter 
and  press  <Enter>. 

4.  If  the  helicopter  already  exists,  A  menu  will  appear.  The  menu  contains 
selections  for  a  particular  WETFUR  feature.  If  not,  a  dialogue  box  appears 
on  the  screen  and  tells  you  the  helicopter’s  image  files  .are  not  present  on  the 
disk. 

5.  If  the  helicopter  image  files  are  found,  then  highlight  the  appropriate  feature 
visible  in  this  view  of  the  helicopter.  If  the  feature  is  not  visible  in  this  view 
of  the  helicopter,  press  <Esc>. 

6.  Repeat  step  4  for  each  of  the  WETFUR  feature  menus. 

7.  Repeat  step  4  for  the  other  two  views  of  the  helicopter. 

Note:  The  tutor  system  identifies  the  helicopter  based  on  the  first  five 
characters  in  the  name.  If  you  define  a  new  helicopter,  make  sure  the  given  name 
is  unique. 

D.  Getting  a  Student  Report 

A  student  report  contains  the  following  information  about  a  student: 

•  Student’s  ID. 

•  Student’s  name. 

•  Current  mode  that  the  student  is  in. 

•  Current  level  that  the  student  is  in. 

•  Last  test  .score  the  student  received. 
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This  report  can  be  used  to  track  the  performance  of  the  student.  To  get  a 
student  report,  the  following  steps  are  required: 

1.  Select  the  "Student  Report"  item  from  the  Setup  Menu,  and  press  <Enter>. 

2.  Select  the  student’s  ID  from  the  menu,  and  press  <Enter>. 

3.  Repeat  for  other  students  as  desired.  When  you  have  finished,  press  <Esc> 
to  return  to  the  Setup  Menu. 
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VI.  GETTING  HELP 

The  tutor  provides  two  modes  of  getting  help  information.  One  is  getting  help 
from  the  Main  Menu  by  selecting  the  "Help"  item.  This  menu  selection  causes 
the  Help  Menu  to  show  up.  The  Help  Menu  has  the  following  topics  for  the  user 
to  select. 

•  About  Help:  Information  about  the  Help  available  in  the  tutor  system. 

•  Tutor  Help;  Overview  of  the  tutor  session. 

•  Game  Help:  Overview  of  the  one  or  two  player  game. 

•  Setup/Utility  Help:  A  description  of  the  various  utilities  available  in  the  tutor 
system. 

The  other  mode  is  the  context  sensitive  help.  To  get  a  context  sensitive  help, 
the  user  has  to  press  the  "H”  key.  This  Help  mode  provides  detailed  information 
about  the  current  mode/level  that  the  user  was  in  at  the  time  of  the  Help  request. 


APPENDIX  B  -  SOURCE  CODE 


[$M  54000,0,48000} 

program  Install; 

uses  DOS,  CRT,  GRAPH; 
var 

Ch  ;  char; 
grDrivcr  :  integer; 
grMode  :  integer; 

ErrCode  :  integer; 

Dirinfo  :  SearchRec; 

Diskl  :  string}  1|; 

Disk.2  ;  string}  1 ); 

begin 

grDriver  :=  VGA; 
grMode  :=  VGAHi; 

IniiGraph(grDriver,grMode,” ); 

ErrCode  :=  GraphResult; 
if  ErrCode  <>  0  then 
begin 

writelnCThis  program  requires  VGA  graphics.’); 
writelnt’  Install  ABORTED.’); 

writeln(’  Press  any  key  to  return  to  DOS.’); 

Ch  ;=  ReadKey; 

Exit; 

end; 

Diskl  :=  ”; 

Disk2 

while  (Diskl  <>  ’A’)  and  (Diskl  <>  ’a’)  and  (Diskl  <>  ’B’)  and  (Diskl  <>  ’b’) 
do 

begin 

ClearDevice; 

SetColor(  14); 

SetTextJustify(CenterText.CenterText); 
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OutTextXY(320,100,’*****  Which  driver  is  a  source  disk  driver(A/B) 
™»’); 

Ch  :=  #8; 

SetWriteMode(CopyPut); 
while  (Ch  <>  #13)  do 
begin 

Ch  :=  ReadKey; 

Diskl  :=  Concat(Diskl,Ch); 
end; 
end; 


while  (Disk2  <>  ’C’)  and  (Disk2  <>  ’c’)  and 

(Disk2  <>  ’D’)  and  (Disk2  <> ’d’)  do 

begin 

ClearDevice; 

SetColor(14); 

SeiTexUustify(CenterText,CenterText); 

OutTextXY(320, 100, ******  Which  Disk  do  you  want  to  install(C/D)  ===»’) 
Ch  :=  #8; 

SetWriteMode(CopyPut); 
while  (Ch  <>  #13)  do 
begin 

Ch  :=  ReadKey; 

Disk2  ;=  Concat(Disk2,Ch); 
end; 
end; 

ClearDevice; 

OutTextXY(320, 100, ’Welcome  to  the  Helicopter  Recognition  Tutor  Install 
Program’); 

OutTextXY(300,250,’Press  any  key  to  start’); 

Ch  ;=  ReadKey; 

ClearDevice; 

OutTextXY(320,100, ’Creating  a  new  directory  called  ”HP”.’); 
ChDir(Concat(Disk2,’:’)); 

MkDir('HP’); 
if  lOResult  <>  0  then 
begin 

OutTextXY(320,l  l(),’Cannot  create  directory.  Install  ABORTED.’); 
OutTextX Y(320,160,’Press  any  key  to  return  to  DOS.’); 

Ch  ;=  ReadKey; 

ClearDevice; 

CloseGraph; 
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Exit; 

end; 

ChDir(’HP’); 

ClearDevice; 

FindFirst(Concat(Diskl,’:’,’\Disk.  r),AnyFile,DirInfo); 
while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(lOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,lOO,Concat(’Make  sure  that  Disk  1  is  in  Drive  ’,Diskl,’; 

and  press  any  key.’)); 

Ch  ;=  ReadKey; 

FindFirst(Concat(Disk  1  ,’;’,’\Disk.  1  ’),AnyFile,DirInfo); 
end; 

ClearDevice; 

OutTextXY(320, 100, ’Copying  files  from  Disk  1’); 

ClearDevice; 

SwapVectors; 

Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Disk],’:\*.*’)); 
Exec(’C;\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\DATA*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\HLP\*.*’)); 
Exec(’C;\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’;\MNU\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\DEF\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’;\REC\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\NAM\*.*')); 

SwapVectors; 

ClearDevice; 

OutTextXY(320, 100, ’Insert  Disk  2  in  Drive  B:  and  press  any  key.’); 

Ch  ;=  ReadKey; 

FindFirst(Concat(DiskI,’:’,’\Disk.2’),AnyFile,DirInfo); 
while  DOSError  <>  0  do 
begin 

Soiind(440); 

Delay(lOO); 

NoSound; 

ClearDevice; 

OutTextXY(320, 100, ’Make  sure  that  Disk  2  is  in  Drive  B:  and  press  any  key.’) 
Ch  :=  ReadKey; 
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FindFirst(Concat(Diskl,’:’,’\Disk.2’),AnyFile,DirInfo); 

end; 

ClearDevice; 

OutTextXY(320, 110, ’Copying  files  from  Disk  2’); 

ClearDevice; 

SwapVectors; 

Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’;\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\PCX\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\MSG\*.*’)); 

SwapVectors; 

ClearDevice; 

OutTextXY(320, 100, ’Insert  Disk  3  in  Drive  B:  and  press  any  key.’); 

Ch  ;=  ReadKey; 

FindFirst(Concat(Diskl,’:’,’\Disk.3’),AnyFile,DirInfo); 

while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(lOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,l  10,’Make  sure  that  Disk  3  is  in  Drive  B:  and  press  any 

key.’); 

Ch  :=  ReadKey; 

FindFirst(Concat(Diskl,’:’,’\Disk.3’),AnyFile,DirInfo); 

end; 

ClearDevice; 

OutTextXY(320,100, ’Copying  files  from  Disk  3’); 

ClearDevice; 

SwapVectors; 

Exec( ’C:\COMMAND. COM ’,Concat(’/C  copy  ’,Diskl,’:\*.*’)); 
Exec(’C:\COMMAND.COM’,Concat(’/C  copy  ’,Diskl,’:\.MSG\*.*’)); 
Exec('C;\COMMAND.COM’,’/C  del  install.exe’); 
Exec(’C:\COMMAND.COM’,’/C  del  disk.’*=’); 

SwapVectors; 

ClearDevice; 

OutTextXY(320,100,'Install  program  complete.’); 

OutTextXY(310,160,’Press  any  key  to  return  to  DOS’); 

Ch  ;=  ReadKey; 

ClearDevice; 
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CloseGraph; 

end. 
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{SM  $4000,0,480000} 


program  Hpt; 

uses  CRT,  Graph,  GX_TP,  PCX_TP,  HpScreen,  HpDialog,  Menus,  Mmenus, 
HpTutor,Game,  Utility,  Students,  Helpshow; 


type 

name  =  string[20]; 
const 

pcxtype  =  gxVGA_12; 
pcximagel  =  ’Cover.pcx’; 
pcximage2  =  ’Menu.pcx’; 
pcximage3  =  ’Welcome.pcx’; 
pcximage4  =  ’Fame.pcx’; 


HelpSh  :  Hshow; 

Mainmenu  :  Mmenu; 

Helpmenu  :  Mmenu; 

GraphDriver,  GraphMode,  ErrorCode,  ChoiceNum  :  Integer; 
Choice  :  name; 

Ch  :  char; 

F  :  text; 

FileName  :  string; 

Key  :  char; 
retcode  ;  integer; 

Tempret  ;  integer; 

procedure  HallofFame; 
var  FameName  :  name; 

X.Y  :  integer; 


begin 

if  (retcode  =  gxSUCCESS)  then  begin 
retcode  :=  pcxFileDisplay(pcximage4,0,0,0); 
end; 

Assign(F,’HalIFame.rec'); 

Reset(F); 
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SetBkColor(Black); 

SetCoIor(lO); 

X  :=  125; 

Y  :=  140; 

while  (not  eof(F))  and  (X  <  600)  do 
begin 

Readln{F,FameName); 

OutTextXY(X,Y,FameNamc); 

Y  :=  Y  +  20; 
if  Y  >  350  then 
begin 

^X  X  +  250; 

Y  :=  140; 
end; 

end; 

Ch  :=  ReadKey; 

SetCoIor(O); 

ClearDevice; 

Close(F); 

end;{Ha!lofFanie} 

procedure  RunTuior; 
begin 

{Initialize  Graphics  by  PCX_utility) 
retcode  ;=  gxSetDisplay(pcxtype); 
retcode  :=  gxSetModelgxGRAPMICS); 
if  (retcode  =  gxSUCCESS)  then  begin 
retcode  :=  pcxFileDisplay(pcximage2, 0,0,0) 
end; 

Reaclln; 

Tutor; 

end;  {RunTutor} 

procedure  RunGame; 
begin 

if  (retcode  =  gxSUCCESS)  then  begin 
retcode  :=  pcxFileDisplay(pcximage2,0,0,0) 
end; 

PlavGame; 
end;  (RunGame) 

procedure  GetHcIp; 
begin 
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Helpmenu.MSho\vMenu(’helpmenu.pcx’); 

Choice  :=  Helpmenu.MGetChoice; 

while  (Choice  <>  ’EXIT  HELP!’)  and  (Choice  <>  ’null’)  do 
begin 

if  Choice  =  ’ABOUT  HELP!’  then 
Helpsh.screen(’help.hlp’) 
else  if  Choice  =  ’TUTOR  HELP!’  then 
Helpsh.screen(’tutor.hlp’) 
else  if  Choice  =  ’GAME  HELP!’  then 
Helpsh.screen(’game.hlp’) 
else  if  Choice  =  ’SETUPAJTILITY  HELP!’  then 
Helpsh.screen( ’setup. hip’); 

GotoXY(Ll); 

Helpmenu.MInit(’Help.mnu’); 

Helpmenu.MShowMenu(’helpmenu.pcx’); 

Choice  :=  HelpMenu.MGetChoice; 
end; 

Mainmenu.MInit(’Main.mnu'); 

Mainmenu.MShowMenu( ’Mainmenu.pcx’); 
end;  {GetHelp} 

{Main  Program} 
begin 

(Initialize  Graphics  by  PCX_utilitv) 
retcode  :=  gxSetDisplay(pcxiype); 
retcode  :=  gxSetMode(gxGRAFHICS); 
if  (retcode  =  gxSUCCESS)  the  i  begin 
retcode  :=  pcxFileDisplay(pcximagel,OAO); 

Key  Readkey; 

retcode  ;=  pcxFileDisplay(pcximage2, 0,0,0); 
retcode  :=  pcxFileDisplay(pcximage3, 120,105,0); 
retcode  :=  pcxFileDisplay(pcximage3, 340, 105,0); 

Key  :=  ReadKey; 

Tempret  :=  gxSetMode(gxTEXT); 
end; 

(Initialize  Graphics  Adapter  to  VGA  640x480  16-color  mode} 
GraphDriver  :=  VGA; 

GraphMode  ;=  VGAHi; 

InitGraph(GraphDriver,  GraphMode,  ”); 

SetBkColor(Black); 

(Load  the  graphics  and  data  into  memory} 
Mainmenu.MInit(’Main.mnu’); 

Helpmenu.Mlnit(’Help.mnu’); 
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HallofFanie; 

{Display  the  Initial  Menu  Screen  and  Get  a  Response) 
StudentModel.Mode  := 
Mainmenu.MShowMenu(’Mainmenu.pcx’); 

Choice  ;=  Mainmenu.MGetChoice; 
while  (Choice  <>  ’EXIT’)  and  (Choice  <>  ’null’)  do 
begin 

if  Choice  =  ’TUTOR  SESSION’  then  RunTutor 
else  if  Choice  =  ’GAME’  then  RunGame 
else  if  Choice  =  ’HELP!’  then  GetHelp 
else  if  Choice  =  ’SETUP’  then  SetUp; 
GotoXY(l,l); 

StudentModel.Mode  := 
Mainmenu.MInit(’Main.mnu’); 
Helpmenu.MInit(’Help.mnu’); 
Mainmenu.Mshowmenu( ’Mainmenu.pcx’); 
Choice  :=  Mainmenu.MGetChoice; 
end: 

CloseGraph; 
end.  {Main  Program) 
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unit  HpScreen; 

interface 
uses  Graph; 
type 

Screen  =  object 
X,  Y  :  Integer; 

F  :  File; 

MemSize  ;  Word; 

P  :  Pointer; 

IsVisible  :  Boolean; 
constructor  Init(FileName  ;  String); 
procedure  Show(XLoc,  YLoc  :  Integer); 
procedure  Hide; 
destructor  Kill; 
end; 

implementation 


constructor  Screen. Init(FileName  :  String); 
begin 

IsVisible  :=  False; 

AssignCF,  FileName);  {Prepare  the  file  } 

Reset(F,  1);  {for  a  read  operation.  } 

MemSize  ;=  FileSize(F);  {Determine  memory  needed  } 

GetMem(P,  MemSize);  {and  allocate  the  memory  on  the  heap.  } 
BlockP.ead(F,  P*^,  MemSize);  {Read  in  the  graphic  pic  file  ) 
Close(F);  {and  close  the  file.  ) 

end; 


procedure  Screen. Show(XLoc,  YLoc  :  Integer); 
begin 

if  not  IsVisible  then 
begin 

X  :=  XLoc; 

Y  :=  YLoc; 

PutImage(X,Y,P'^,CopyPut);  {Display  the  graphics  on  the  screen.) 
IsVisible  :=  True; 
end; 

end; 
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procedure  Screen. Hide; 
begin 

if  IsVisible  then 
begin 

PutImage(X,Y,P'',XorPut);  {Hide  all  pixels.} 
IsVisible  :=  False; 
end; 

end; 

destructor  Screen. Kill; 
begin 

FreeMem(P,  MemSize);  (Release  the  heap  memory.) 
end; 

end. 


unit  HpDialog; 

interface 

uses  Graph,  HpScreen; 


type 

Dialog  =  object(Screen) 

OldP  :  Pointer; 

DOldP  :  Pointer; 

procedure  Show(XLoc,  YLoc  :  integer); 
procedure  Hide; 
end; 

implementation 

procedure  Dialog. Shovv(XLoc,  YLoc  :  integer); 
begin 

if  not  IsVisible  then 
begin 

X  ;=  XLoc; 

Y  :=  YLoc; 

GetMem(01dP,  MemSize);  {Save  the  old  graphics  } 

GetImage(X,  Y,X+230,  Y+ 1  SO.OldP^^); 

PutImage(X,Y,P'',CopyPut);  (and  dispaly  the  new  one.  ) 

IsVisible  :=  True; 
end; 

end; 

procedure  Dialog. Hide; 
begin 

if  IsVisible  then 
begin 

PutImage(X,Y,01dP^,CopyPut);  (Restore  the  old  graphics  } 
FreeMem(01dP,  MemSize);  (and  release  the  heap  memory.  } 

IsVisible  :=  False; 
end; 

end; 


end. 
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unit  Helicopt; 


interface 

uses  Graph,  PCX_TP,  GX_TP,  HpScreen; 


Name  =  String[20]; 

HPTData  =  record 

HelicopterName  ;  Name; 

ExampleOf  ;  Name; 

Exampleinfo  :  Name; 

Wings  :  array  [1..1]  of  Name; 

Wingsinfo  :  array  [1..1]  of  Name; 

Engine  :  array  [1..1]  of  Name; 

Engineinfo  ;  array  [1..1]  of  Name; 

Fuslag  ;  array  [1..1]  of  Name; 

Fuslaginfo  :  array  [1..1]  of  Name; 

Trot  ;  array  [1..1]  of  Name; 

Trotinfo  :  array  [1..1]  of  Name; 

Mrot  :  array  [1..1]  of  Name; 

Mrotinfo  :  array  [1..1]  of  Name; 

Ucag  :  array  [1..1]  of  Name; 

Ucaginfo  :  array  of  Name; 

FIstn  :  array  [1..1]  of  Name; 

Hstninfo  ;  array  [1..11  of  Name; 

Hstl  :  array  [1..1J  of  Name; 

Hstlinfo  :  array  [1..1]  of  Name; 
end; 

FIelicopter=  object(Screen) 

Aptr  :  Pointer; 

Ap  :  Pointer; 

Msize  :  Word; 

FI  ;  Text; 

HPTInfo  :  HPTData; 
constructor  Init(HPTName  ;  Name); 
procedure  Show(XLoc,YLoc  ;  integer;  HPTName  :  Name); 
procedure  Hide; 
procedure  Kill; 
end; 
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var 

retcode  :  Integer; 
implementation 

constructor  Helicopter.Init(HPTName  :  Name); 
var 

Counter  ;  Integer; 
begin 

IsVisible  ;=  False; 

Assign(Fl,Concat(HPTName,’.dat’)); 

ResetCFl); 

Readln(Fl,HPTInfo.HelicopterName); 

Readln(F  1  ,HPTInfo.ExampleOf); 

Readln(Fl,HPTInfo.ExampleInfo); 

for  Counter  :=  1  to  1  do 
begin 

Readln(F  I, HPTInfo.Wings[  Counter]); 

Readln(Fl  ,HPTInfo.WingsInfo[  Counter]); 
end; 

for  Counter  :=  1  to  1  do 
begin 

Readln(Fl,HPTInfo.Engine[Counter]), 

Readln(Fl,HPTInfo.EngineInfofCounter]); 

end; 

for  Counter  :=  1  to  1  do 
begin 

Readln(Fl,HPTInfo.Fuslag[  Counter]); 

Readln(Fl  ,HPTlnfo.Fuslaglnfo[  Counter]); 
end; 

for  Counter  ;=  1  to  1  do 
begin 

Readln(FI,HPTInfo. Trot]  Counter]); 

Readln(Fl  .HPTInfo. Trot  Info]  Counter]); 
end; 

for  Counter  :=  1  to  1  do 
begin 

ReadI  n(Fl, HPTInfo.  Mrot  [Counter]); 

Readln(Fl,HPTInfo.Mrot  Info]  Counter]); 
end; 

for  Counter  :=  1  to  1  do 
begin 

Readln(F  I  .HPTInfo.l’cagf  Counter  j ); 
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Readln(Fl,HPTInfo.UcagInfo(Coi!nterl); 

end; 

for  Counter  ;=  1  to  1  do 
begin 

Readln(Fl,HPTInfo.Hstn[Counter]); 

Readln(Fl,HPTInfo.HstnInfo[Counterl); 

end; 

for  Counter  :=  1  to  1  do 
begin 

Readln(Fl,HPTInfo.Hstl[Counter]); 

Readln(F  1  ,HPTInfo.HstlInfo[Counter] ); 
end; 

Close(Fl); 

end; 

procedure  Helicopter.Shovv(XLoc,  YLoc  ;  integer;  HPTName  ;  Name); 

begin 

if  not  IsVisible  then 
begin 

retcode  :=  gxSetDisplay(gxVGA_12); 

X  ;=  XLoc; 

Y  :=  YLoc; 

retcode  :=  pcxFileDisplay(concat(HPTName,’.pcx’),X,Y,0); 

Msize  ;=  ImageSize(0, 0,234, 175); 

GetMem(Aptr,Msize); 

GetImage(X,Y,234+X,  1 75+Y,Aptr^); 

IsVisible  :=  Taie; 

end; 

end' 

procedure  Helicopter. Hide; 

begin 

if  IsVisible  then 
begin 

PutImage(X,Y.Aptr'^,XorPut); 

IsVisible  :=  False; 
end; 

end; 

procedure  Helicopter. Kill: 

begin 

IsVisible  :=  False; 


‘=>7 


Freemem(Aptr,Msize); 

end; 

end. 
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unit  Students; 


interface 

type 

Name  =  string  [20]; 

Model  =  object 

StudentName,  Mode,  Level  :  Name; 

TestScore  :  Integer; 

NumShown,  NumMissed  :  Integer; 

HPTArray  :  array  [1..150]  of  Name; 

MissedArray  :  array  [1..150]  of  Name; 
function  Get  :  Boolean; 

procedure  Update(StuName:Name;Ne\vMode:Name;Ne\vLevel:Name; 

NewScoreiInteger); 
procedure  Save; 

function  GetEntry(MaxNum  :  Integer)  :  Integer; 
function  AddEntry(HPTName  :  Name;  MaxNum  integer)  :  Boolean; 
procedure  Kill; 
end; 

var 

StudentModel  :  Model; 
implementation 

uses  DOS,  CRT,  Graph,  HpDialog; 
var 

FileName  :  Name; 

Deleted  :  Boolean; 

F  :  Text; 

S  ;  Pathstr; 

Ch  :  Char; 

Counter  ;  Integer; 

DialogScreen  :  Dialog; 

function  Model. GetFntry( MaxNum  ;  Integer)  :  Integer; 
begin 

Randomize; 

Counter  1; 
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while  (StudentModel.HPTArTay[Counter]  =  ”)  and  (Counter  <=  MaxNum)  do 
Counter  :=  Counter  +  1; 
if  Counter  <  MaxNum  then 
begin 

Counter  :=  Random(MaxNum  -  1); 
while  StudentModel.HPTArray[Counter  +  1]  =  ”  do 
Counter  :=  Random(MaxNum); 

GetEntry  ;=  Counter  +  1; 
end 

else  GetEntry  :=  0; 
end; 

function  Model. AddEntry(HPTName  :  Name;  MaxNum  :  Integer)  :  Boolean; 
begin 

Counter  ;=  1; 

while  (StudentModel.MissedArray[Counter]  <>  ”)  and  (Counter  <=  MaxNum+1)  do 
Counter  :=  Counter  +  1; 
if  Counter  <=  MaxNum  then 
begin 

StudentModel.MissedArray[Counterl  :=  HPTName; 

AddEntry  :=  true; 
end 

else  AddEntry  :=  false; 
end; 

function  Model. Get  ;  Boolean; 
const 

ALPHA  =  f’A’..’Z’,’a'..’z’]; 

NUM  =  [’{)’. .’9’]; 
begin 

Deleted  ;=  False; 

FileName  :=  ”; 

Counter  :=  1; 

SetLineStyle(SolidLn.O,Thick\Vidth); 

Set\VriteMode(CopyPut); 

SetColor(13); 

DialogScreen.InitC  Model.  msg‘); 

DialogScreen.Show(205,60); 

Line(280, 165,350, 165); 

Line(280,167,350,167); 

Line(280, 169,350, 169); 

Line(280,171, 350,171); 

Line(280, 173,350, 173); 
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Line(280,175,350,175); 

Line(280,177,350,177); 
while  Counter  <=  6  do 
begin 

SetColor(lO); 

Ch  :=  ReadKey; 

if  (Counter  =  1)  and  (Ch  in  ALPHA)  then 
begin 

OutTextX  Y  (280+  10*Counter,  1 68, Ch); 

FileName  :=  Concat(FileName,Ch); 

Counter  :=  Counter  +  1; 
end 

else  if  (Counter  >  1)  and  (Counter  <  6)  and  (Ch  in  NUM)  then 
begin 

OutTextX  Y(280+ 1 0*Counter,  1 68, Ch); 

FileName  :=  Concat(FileName,Ch); 

Counter  :=  Counter  +  1; 
end 

else  if  (Ch  =  #8)  and  (Counter  >  1)  then 
begin 

SetWriteMode(CopyPut); 

SetColor(13); 

Line(260+10*Counter,165,290+10*Counter,165); 
Line(260+10*Counter,167,290+10*Counter,167); 
Line(260+  10*Counter,  1 69,290+1 0*Counter,  1 69); 
Line(260+ 1 0*Counter,  1 7 1 ,290+  10*Counter,  171); 
Line(260+10*Counter,173,290+10*Counter,173); 
Line(260+10*Counter,175,290+10*Counter,175); 
Line(260+10*Counter,177,290+l0*Counter,177); 

Counter  ;=  Counter  -  1; 

FileName  :=  Copy(FileName,l, Counter- 1); 

SetColor(13); 

end 

else  if  (Counter  =  6)  and  (Ch  =  #13)  then 
Counter  :=  Counter  +  1 
else 
begin 

Sound(440); 

Delay(lOO); 

NoSound; 

end; 

end; 

DialogScreen.Hide; 
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DialogScreen.Kill; 

S  :=  FSearch(’.’,Concat(FileName,’.mdr)); 
if  S  =  ”  then 
begin 

Get  :=  False; 

Exit; 

end 

else 

begin 

Assign(F,Concat(FileName,’.mdr)); 

Reset(F); 

Readln(F,StudentModel.StudentName); 

Readln(F,StudentModel.Mode); 

Readln(F,StudentModel. Level); 

Readln(F,StudentModel.TestScore); 

Readln(F,StudentModel.NumSho\vii); 

Readln(F,Student  Model. NumMissed); 
for  Counter  :=  1  to  150  do 

Readln(F,StudentModel,HPTArray[Counter]); 
for  Counter  :=  1  to  150  do 

Readln(F,StudentModel.MissedArray[Counter]); 

Close  (F); 
end; 

Get  :=  true; 

end;  {GetStudentModel} 

procedure  Model. Update(StuName:Name;NewMode:Name;N'e\\  Level iName 
NewScorednteger); 

begin 

if  NewLevel  =  ’Novice’  then 
Assign(F,'hnovice.def’) 
else 

Assign(F,’hintermd.def'); 

Reset(F); 

Readln(F.Student  Model.  Student  Name); 

Readln(F,StudentModel.Mode); 

Readln(F,StudentModel. Level); 

Readln(F,StudentModel.TcstScore); 

Readln(F,StudentModel.NumShown); 

Readln(F.StudentModel.NumMis.sed); 

SetColor!  )); 

for  Counter  :=  1  to  150  do 
begin 
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Readln(F,StudentModel.HPTArray[Coupter]); 

end; 

for  Counter  1  to  150  do 

Readln(F,StudentModel.MissedArTay[Counter]); 

Close(F); 

StudentModel.StudentName  :=  StuName; 

StudentModel.Mode  :=  NewMode; 

Studi’ntModel. Level  :=  NewLevel; 

StudentModel.TestScore  :=  NewScore; 
end;  {Update} 

procedure  Model. Save; 
begin 

if  not  Deleted  then 
begin 

Assign(F,Concat(File\ame,’.mdF)); 

Rewrite(F); 

WritelnCF, StudentModel.StudentName); 

Writeln(F, StudentModel.Mode); 

Writeln(F,StudentModel. Level); 

WritelnCF, StudentModel.TestScore); 

WritelnCF, StudentModel.NumShown); 

WritelnCF, StudentModel.NumMissed); 
for  Counter  :=  1  to  150  do 

WritelnCF, StudentModel.HPTArraylCounterj); 
for  Counter  :=  1  to  150  do 

WritelnCF,StudentModel.MissedArray[Counter|); 

CloseCF); 

end; 

end; 

procedure  Model. Kill; 
begin 

E\ecC’\COMMAND.COM’,ConcatC7C  del  ’,FileName;.mdr)) 
Deleted  :=  true; 
end; 

end. 
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unit  Helpshow; 

interface 

uses  CRT,  Graph,  GX_TP,  PCX_TP; 
type 

Hshow  =  object 

constructor  Screen(HFilename  :  String); 
end; 

implementation 


Filename  :  String[20J; 
retcode  :  Integer; 

IsVisible  :  Boolean; 

MemSize  :  Word; 

Oldpl  :  Pointer; 

01dp2  :  Pointer; 

01dp3  :  Pointer; 

01dp4  :  Pointer; 

01dp5  :  Pointer; 

Hptr  :  Pointer; 

Ch  :  Char; 

constructor  Hshow. Screen(HFilename  :  String); 
begin 

retcode  :=  gxSetDisplay(gxVGA_12); 
retcode  :=  gxSetMode(gxGRAPHICS); 

IsVisible  :=  False; 
if  not  IsVisible  then 
begin 

Mark(Hptr); 

MemSize  :=  64000; 

GetMem(01dPl,  MemSize);  {Save  the  old  bitmap  ) 

GetImage(0,0,639,099,01dP  1  '^); 

GetMem(01dP2,  Memsize);  {Save  the  old  bitmap  } 

GetImageCO,  1 00,639, 1 99,01dP2^); 

GetMem(01dP3.  MerrvSize);  {Save  the  old  bitmap  } 

G?tImage(0,200,639.2‘'9,01dP3^); 

GetMem(01dP4.  Mem.Size); 
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GetImage(0,300,639,399,01dP4^); 

MemSize  :=  51200; 

GetMem(01dP5,  MemSize); 
GetImage(0,400,639,479,OidP5‘^); 
if  (retcode  =  gxSUCCESS)  then 
begin 

retcode  :=  pcxFileDisplay(HFilename,0,0,0); 


end; 

IsVisible  :=  true; 
end; 

Ch  :=  ReadKey; 
if  IsVisible  then 
begin 

PutImage(0,0,01dP  1  ^,CopyPut); 
MemSize  ;=  64000; 
FreeMem(01dPl,  MemSize); 
PutImage(0,100,01dP2'',CopyPut); 
MemSize  :=  64000; 
FreeMem(01dP2,  MemSize); 
PutImage(0,200,01dP3'^,CopyPut); 
MemSize  ;=  64000; 
FreeMem(01dP3,  MemSize); 
PutImage(0,300,01dP4'^,CopyPut); 
MemSize  :=  64000; 
freeMem(01dP4,  MemSize); 
PutImage(0,400,01dP5^,CopyPut); 
MemSize  ;=  51200; 
FreeMem(01dP5,  MemSize); 
Release(Hptr); 

IsVisible  :=  False; 


{Put  the  old  bitmap  back} 

(and  free  the  heap  memory.} 
(Put  the  old  bitmap  back  } 

(and  free  the  heap  memory.} 


(Put  the  old  bitmap  back} 
(and  free  the  heap  memory.} 


end; 

end; 


end. 


unit  Help; 

interface 

uses  CRT,  Graph,  HpScreen,  Students,  GX_TP,  PCX_TP,  Helpshow; 
type 

HELPS  =  object 
constructor  GetHelp; 
end; 

implementation 

var 

Ch  ;  Char; 

FileName  :  Name; 

Showhelp  :  Hshow; 

constructor  Helps. GetHelp; 
begin 

if  StudentModel.Mode  =  ”  then 
Showhelp. Screen(’Menu. hip’) 
else  if  StudentModel.Mode  =  ’Game’  then 
Showhelp.Screen(’Game.hlp’) 
else  if  StudentModel.Mode  =  ’Setup’  then 
Showhelp. Screen(’Setup. hip’) 
else  if  StudentModel.Mode  =  ’StuRep’  then 
Showhelp. ScreenC’StuRep. hip’) 
else  if  StudentModel.Mode  =  ’SelectHPT’  then 
Showhelp.  Screen(’SelHPT.hlp’) 
else  if  StudentModel.Mode  =  ’AddHPT’  then 
Showhelp. Screen(’AddHPT.hlp’) 
else  if  StudentModel.Mode  =  ’Diagnose’  then 
Showhelp. Screen! ’Diagnose. hip’) 
else  if  StudentModel.Mode  =  ’Teach’  then 
begin 

if  StudentModel. Level  =  ’Novice’  then 
Show'help.Screen(’TeaNov.hlp’) 
else  Showhelp. Screen(’TeaInt. hip’); 
end 

else  if  StudentModel.Mode  =  ’Test’  then 
be^  in 

if  StudentModel. Lew  1  =  ’Intermediate’  then 
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Showhelp.Screen(’Testlnt.hlp’) 
else  Showhelp.Screen(TestExp.hlp’) 
end 
else 
begin 

if  StudentModel. Level  =  ’Novice’  then 
Showhelp.Screen(’RevNov.hlp’) 
else  if  StudentModel. Level  =  ’Intermediate’  then 
Showhelp.Screen(’RevInt.hlp’) 
else  Showhelp.Screen(’RevExp.hlp’); 
end; 


end. 
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unit  Menus; 


interface 

uses  CRT,  Graph,  Help,  Students; 
type 

Name  =  String[20]; 

Menu  =  object 

MenuTitle  :  String; 

X,Y,Color,TopItem,SelectedItem,HighLightedItem  :  Integer; 
NumSelections  :  Integer; 

MenuSelection  ;  array[l..l50]  of  Name; 

F  :  Text; 

constructor  Init(FileName  :  Name); 
function  GetChoice  :  Name; 
end; 

var 

LastSelection  :  Integer, 

Helpitem  :  Helps; 

implementation 

const 

MaxSelections  =  8; 


var 

Ch  :  Char; 

Counter  :  Integer; 

Liner  :  Integer; 

constnictor  Menu.Init(FileName  :  Name); 
begin 

Highlighteditem  :=  1; 

Selecteditem  :=  1; 

Topitem  :=  1; 

Counter  :=  0; 

Assign(F,FileName); 

Reset(F); 

Readln(F, MenuTitle); 

Readln(F,X); 
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Readln(F,Y); 

Readln(F,Color); 

while  (not  eof(F))  and  (Counter  <  150)  do 
begin 

Counter  :=  Counter  +  1; 
Readln(F,MenuSelection[Counter]); 
end; 

NumSelections  :=  Counter; 

Close(F); 


function  Menu.GetChoice  :  Name; 

procedure  ShowMenu(Selection  :  Integer); 
begin 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 
SetWriteMode(CopyPut); 
for  Liner  :=  1  to  18  do 
begin 

Line(391,227+Liner,560,227+Liner); 

end; 

SetTextJustify(CenterText,CenterText); 

SetColor(Color); 

OutTextX  Y  (X,  Y,MenuTitle); 

Counter  :=  0; 

while  (Counter  +  Selection  <=  NumSelections)  and 

(Counter  +  Selection  <  Selection  +  MaxSelections)  do 
begin 

OutTextXY(X,Counter*15+Y+22, 
MenuSelection[Counter  +  Selection]); 

Counter  ;=  Counter  +  1; 
end; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 
SetWriteMode(CopyPut); 
for  Liner  :=  1  to  18  do 
begin 

Line(X-75.Y+140+Liner,X+75,Y+140+Liner); 

end; 

SetColor(Color); 

if  (Selection  >  1)  and  (Selection  <=  NumSelections  -  8)  then 
OutTextXY(X,Y+150;PgUp/PgDn’) 
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else  if  Selection  >  1  then 

OutTextXY(X,Y+150,’PgUp’) 
else  if  Selection  <=  NumSelections  -  8  then 
OutTextXY(X,Y+ 150, ’PgDn’); 
end;  {ShowMenu) 

procedure  KillMenu; 
begin 

if  Color  <>  0  then 
SetColor(O); 

SetWriteMode(CopyPut); 

Line(X-50,Y-3,X+5b,Y-3); 

Line(X-50,Y,X+50,Y); 

Line(X-50,Y+3,X+50,Y+3); 
for  Counter  :=  1  to  8  do 
begin 

Line(X-85,Counter*15+Y+3,X+85,Counter*15+Y+3); 

Line(X-85, Counter*  15+Y+6,X+85, Counter*  15+Y+6); 

Line(X-85, Counter*  1 5+Y+9,X+85,Counter*  1 5+Y+9); 
end; 

Line(X-35,Y+97,X+35,Y+97); 

Line(X-35,Y+100,X+35,Y+100); 

Line(X-35,Y+103,X+35,Y+103); 
ef'd;  (KillMenu) 

pt'cedure  Highlight(NewIteni  :  Integer); 
b.gin 

SetWriteMode(XorPut); 

SetColor(Color); 

Line(X-85,HighlightedItem*15+Y+3,X+85,HighlightedItem*15+Y+3); 
Line(X-85,HighlightedItem*15+Y+6,X+85,HighlightedItem*15+Y+6); 
Line(X-85,HighlightedItem*  15+Y+9,X+85,HighlightedItem*15+Y+9); 
if  HighLightedItcm  <>  Newitem  then 
begin 

Highlighteditem  :=  Newlteni; 

Line(X-85,NewItem*  15+ Y+3,X+85, Newitem*  15+Y+3); 
Line(X-85, Newitem*  15+ Y+6,X+85,NewItem*15+Y+6); 
Line(X-85,NcwIter'*  15+Y+9,X+85, Newitem*  15+Y+9); 
end; 

end;  (Highlight) 

procedure  PageUp; 
begin 
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if  Topitem  >  MaxSelections  then 
begin 

KillMenu; 

Selecteditem  :=  (Selecteditem  -  8)  -  (Highlightedltem  -  1); 

Topitem  :=  Topitem  -  8; 

Highlightedltem  ;=  I; 

ShowMenu(TopItem); 

Highlight(Highlightedltem); 

end; 

end;  (PageUp) 

procedure  PageDown; 

begin 

if  Topitem  +  MaxSelections  <=  NumSelections  then 
begin 

KillMenu; 

Selecteditem  :=  (Selecteditem  +  8)  -  (Highlightedltem  -  1); 

Topitem  :=  Topitem  +  8; 

Highlightedltem  ;=  1; 

ShowMenu(TopItem); 

Highlight(Highlightedltem); 

end; 

end;  (PageDown) 

procedure  MoveUp; 

begin 

if  Highlightedltem  >  1  then 
begin 

Highlight(HighlightedItem  -  1); 

Selecteditem  :=  Selecteditem  -  1; 
end; 

end;  (MoveUp) 

procedure  MoveDown; 

begin 

if  (Highlightedltem  <  MaxSelections)  and 
(Selecteditem  <  NumSelections)  then 
begin 

HighIight(HighlightedItem  +  1); 

Selecteditem  :=  Selecteditem  +  1; 
end; 

end;  (MoveDown) 
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procedure  Getinput; 
begin 

Ch  ;=  ReadKey; 
begin 

Case  Ch  of 

’h’  :  HelpItem.GetHelp; 

chr(80),chr(50)  :  MoveDown; 
chr(72),chr(56)  ;  MoveUp; 
chr(81),chr(51)  :  PageDown; 
chr(73),chr(57)  :  PageUp; 

end; 

end; 

end;  {Getinput} 
begin 

ShowMenu(l); 

Highlight(l); 

repeat 

Getinput 

until  (Ch  =  #13)  or  (Ch  =  #27); 
if  Ch  =  #27  then 
GetChoice  :=  ’null’ 
else 

GetChoice  ;=  MenuSelection[SelectedIteni]; 
SetCoIor(O); 

SetLineStyle(SolidLn.O,ThickWidth); 
SetWriteMode(CopyPut); 
for  Liner  :=  1  to  18  do 
begin 

Line(391 ,227+Liner,56n,227+Liner); 
end; 

for  Liner  :=  1  to  18  do 
begin 

Line(X-75.Y+140+Liner,X+75,Y+140+Liner); 

end; 

LastSelection  :=  Selecteditem; 

KillMenu; 

Topitem  ;=  1; 

Selecteditem  1; 

Highlighteditem  1; 
end;  (  Menu. GetChoice ) 

end. 
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unit  MMenus; 


interface 

uses  CRT,  Graph,  Help,  GX_TP,  PCX_TP; 
type 

Name  =  String[20]; 

MMenu  =  object 

MTopItem,MSelectedItem,MHighLightedItem  :  Integer; 
MNumSelections  :  Integer; 

MMenuSelection  :  aiTay[1..10]  of  Name; 

MF  :  Text; 

constructor  MInit(MFileName  :  Name); 
procedure  MShowMenu(MFileName  :  Name); 
function  MGetChoice  ;  Name; 
end; 
var 

MLastSelection  :  Integer; 
retcode  :  Integer; 

Helpitem  :  helps; 

implementation 

const 

MMaxSelections  =  5; 
var 

MCh  :  Char; 

MCounter  :  Integer; 

constructor  Mmenu.MInit(MFileName  :  Name); 
begin 

MHighlightedItem  :=  1; 

MSelectedItem  :=  1; 

MTopItem  :=  1; 

MCounter  ;=  0; 

Assign(MF,MFileName); 

ResetCMF); 

while  (not  eof(MF))  and  (MCounter  <  10)  do 
begin 

MCounter  :=  MCounter  +  1; 

Readln(MF, MMenuSelection!  MCounter]); 
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end; 

MNumSelections  :=  MCounter; 

Close(MF); 

end; 

procedure  Mmenu.MShowMenu(MFileName  :  Name); 
begin 

retcode  :=  gxSetDisplay(gxVGA_12); 
retcode  :=  gxSetMode(gxGRAPHICS); 
if  (retcode  =  gxSUCCESS)  then 
begin 

retcode  :=  pcxFileDisplay(MFileName,0,0,0); 
end; 

if  (retcode  <>  gxSUCCESS)  then 
begin 

writeln(’An  error  occured:  [’, retcode,’]’); 
end; 

end; 

function  Mmenu.MGetChoice  ;  Name; 

procedure  MHighlight(MNewItem  :  Integer); 
begin 

SetLineStyle(Solidln,0,ThickWidth); 

SetWriteMode(XorPut); 

SetColor(13); 

Line(220,lVlHighlightedItem*40+95+3,420, 

MHighlightedItem*40+95+3); 

Line(220,MHighlightedItem*40+95+6,420, 

MHighlightedItem*40+95+6); 

Line(220,MHighlightedItem*40+95+9,420, 

MHighlightedItem*40+95+9); 

Line(220,MHighlightedItem*40+95+ 12,420, 

MHighlightedItem*40+95+ 1 2); 

Line(220^,MHighlightedItem*40+95+ 15,420, 

MHighlightedItem*40+95+15); 

Line(220,MFIighlightedItem*40+95+ 1 8,420, 

MHighlightedItem*40+95+18); 

Line(220,MHighlightedItem*40+95+2 1,420, 

MFlighlightedItem*40+95+2 1 ); 

Line(220,MHighlightedItem*40+95+24,420, 

MHighlightedItem*40+95+24); 

Line(220.MHighlighteditem*40+95+27,420, 
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MHighlightedItem*40+95+27); 
if  MHighLightedItem  <>  MNewItem  then 
begin 

MHighlightedItem  ;=  MNewItem; 
Line(220,MHighlightedItem*40+95+3,420, 
MHighlightedItem*40+95+3); 
Line(220,MHighlightedItem*40+95+6,420, 
MHighlightedItem*40+95+6); 
Line(220,MHighlightedItem*40+95+9,420, 
MHighlightedItem*40+95+9); 
Line(220,MHighlightedItem*40+95+ 12,420, 
MHighlightedItem*40+95+ 1 2); 
Line(220,MHighlightp'^Ttem*40+95+ 15,420, 
MHighlightedItem*40+95+15); 
Line(220,MHighlightedItem*40+95+ 18,420, 
MHighlightedItem*40+95+18); 
Line(220,MHighlightedItem*40+95+2 1,420, 
MHighlightedItem*40+95+21); 
Line(220,MHighlightedItem*40+95+24,420, 
MHighlightedItem*40+95+24); 
Line(220,MHighlightedItem*40+95+27,420 
MHighlightedItem*40+95+27); 

end; 

end;  {MHighlight} 

procedure  MMoveUp; 
begin 

if  MHighlightedItem  >  1  then 
begin 

MHighlightCMHighlightedltem  -  1); 

MSelectedItem  :=  MSelectedltem  -  1; 
end; 

end;  {MMoveUp} 

procedure  MMoveDosvn; 
begin 

if  (MHighlightedItem  <  MMaxSelections)  and  (MSelectedltem  < 
MNumSelections'/  then 
begin 

MHighlight(MHighlighfedIfem  +  1); 

MSelectedltem  :=  MSelectedUem  +  1; 
end; 

end; 
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procedure  MGetInput; 
begin 

MCh  :=  ReadKey; 

Case  MCh  of 

’h’  :  Helpitem.GetHelp; 

chr(80),chr(50)  :  MMoveDown; 
chr(72),chr(56)  :  MMoveUp; 

end; 

end;  {MGetInput} 
begin 

MHighlight(l); 

repeat 

MGetInput 

until  (MCh  =  #13)  or  (MCh  =  #27); 
if  MCh  =  #27  then 
MGetChoice  :=  ’null’ 
else 

MGetChoice  ;=  MMenuSelection[MSelectedItem]; 
MLastSelection  :=  MSelectedItem; 
end;  {Mmenu.MgetChoice} 

end. 
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unit  NMenus; 


interface 

uses  CRT,  Graph,  Help: 
type 

Name  =  String[20]; 

NMenu  =  object 
MenuTitle  :  String; 

X,Y,Color,TopItem,Selecte(i!tem,HighLightedItem  :  Integer; 
NuinSelections  :  Integer; 

MenuSelection  ;  array[1..150]  of  Name; 

F  :  text; 

constructor  Init(FiieName  ■  Name); 
function  GetNumber  ;  Intej^.r; 
end; 

\'ar 

LastSeleciion  :  Integer; 

HelpItem  ;  Helps; 

implementation 

const 

MaxSelections  =  8; 
var 

Ch  ;  Char; 

Counter  :  Integer; 

Liner  ;  Integer; 

constructor  NMenu. IniltFileName  :  Name); 
begin 

Highlightedltem  :=  1; 

Selecteditem  :=  1 ; 

Topitem  ;=  1; 

Counter  :=  0; 

AssigntF.FileName); 

Re.setfF); 

ReadlniF, MenuTitle); 

ReadlntF.X); 
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Readln(F,Y); 

Re';dln(F, Color); 

while  (not  eof(F))  and  (Counter  <  150)  do 
begin 

Counter  :=  Counter  +  1; 
Readln(F,MenuSelection[  Counter]); 
end; 

NumSelections  :=  Counter; 

Close(F); 

end; 


function  NMenu.GetNumber  :  Integer; 

procedure  ShowMenu(Selection  ;  Integer); 
begin 

SetColor(O); 

SetLineStyIe(SolidLn,0,ThickWidth); 

St  tWriteMode(CopyPut); 

SetTextJustify(CenterText,CenterText); 

for  Liner  1  to  18  do 
begin 

line(391,227+Liner,560,'’27+Liner); 

end; 

SetCoIorfColor); 

OutTex  XY(X,Y,MenuTitIe); 

Counter  :=  0; 

while  (Counter  +  Selection  <=  NumSelections)  and 

(Counter  +  Selection  <  Selection  +  MaxSelections)  do 
begin 

OutTextXY(X,Counter*15+Y+22. 

MenuSelectionfCounter  -f  Selection]); 

Counter  ;=  Counter  +  1; 
end; 

SetColor(0,); 

SetLineStyle(SolidLn,O.ThickWidth); 

for  Liner  ;=  1  to  18  do 
begin 

line(X-75,Y+140+Liner.X+75,Y+I4()+Liner); 

end; 

Se;Color(Color); 

if  (Selection  >  1)  and  (Selection  <=  NumSelections  -  8)  then 
OutTextXY(X,Y+150.’PgUp/PgDn’) 

else  if  Selection  >  1  then 
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OutTextXY(X,Y+150,’PgUp’) 
else  if  Selection  <=  NumSelections  -  8  then 
OutTextXY(X,Y+150,’PgDn’); 
end;  {ShowMenu} 

procedure  KillMenu; 
begin 

if  Color  <>  0  then 
SetColor(O); 

SetWriteMc'de(CopyPut); 

Line(X-50,Y-3,X+50,Y-3); 

Line(X-50,Y,X+50,Y); 

Line(X-50,Y+3,X+50,Y+3); 
for  Counter  :=  1  to  8  do 
begin 

Line(X-85  Counter*  15+Y+3,X+85,Counter*15  ■i-Y+3); 
Line(X-85, Counter*  15+Y+6,X+85, Counter*  15+Y+6); 

Line(X-85, Counter*  1  ^+Y  -i-9,X+85, Counter*  1 5+Y +9); 
end; 

Line(X-33,Y+97,X+35,Y+97); 

Line(X-35,Y+100,X+35,Y+10()); 

Line(X-35,Y+ 103,X+35,Y+103); 
end;  (KillMenu) 

procedure  Highlight(NewItem  ;  Integer); 
bi  jin 

SetWriteMode(XorPut); 

SetColor(CoIor); 

Line(X-85,HighIightedItem*15+Y+3,X+85,High!ightedltem*15+Y+3); 
Line(X-85,HighlightedItcin*13+Y+6,X+83,Highlightedltem*15+Y+6); 
Line(X-85,Highlightedltcm*15+Y+9,X+83,Highlightedltem*15+Y+9); 
if  HighLightedltem  <>  Newl'em  then 
beg’n 

Highlighteditem  :=  Newhe.n; 

Line(X-85,NewItem*  13+Y+3,X+85,NevvItem*13+Y+3); 
Line(X-85,Ne'.vItem*15+Y+6.X+83  NevvItem*13+Y+6); 
Line(X-85,Newltem*13+Y4-9,X+85,Ne\vItem*15+Y+9); 
end; 

end;  (Highlight) 

procedure  PageUp; 
begin 

if  Topitem  >  MaxSelections  then 


begin 

KillMenu; 

Selectedltem  :=  (Selecteditem  -  8)  -  (Highlighteditem  -  1); 

Topltem  :=  Topltem  -  8; 

Highlighteditem  :=  1; 

ShowMenu(TopItem); 

Highlight(Highlightedltem); 

end; 

end;  {PageUp) 

procedure  PageDown; 

begin 

if  Topltem  +  MaxSelectlons  <=  NumSelections  then 
begin 

KillMenu; 

Selectedltem  (Selectedltem  +  8)  -  (Highlighteditem  -  1); 

Topltem  :=  Topltem  +  8; 

Highlighteditem  ;=  1; 

Shov.'Menu(TopItem); 

Highlight(Highlightedltem); 

end; 

end;  (PageDown) 

procedure  MoveUp; 

begin 

if  Highlighteditem  >  1  then 
begin 

Highlight(HighlightedItem  -  I); 

Selectedltem  :=  Selectedltem  -  1; 
end; 

end;  (MoveUp) 

procedure  MoveDown; 

begin 

if  (Highlighteditem  <  MaxSelections) 
and  (Selectedltem  <  NumSelections)  then 
begin 

High!igh:(lligh!ightedltem  +  1); 

Selectedltem  :=  Selectedltem  +  1; 
end; 

end;  (MoveDown) 

procedure  Getinput; 
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begin 

Ch  ReadKey; 

Case  Ch  of 

’h’  :  HelpItem.GetHelp; 

chr(80),chr(50)  :  MoveDown; 
chr(72),chr(56)  :  MoveUp; 
chr(81),chr(51)  :  PageDown; 
chr(73),chr(57)  :  PageUp; 

end; 

end;  {Getlnput} 
begin 

ShowMenu(l); 

Highlight(l); 

repeat 

Getlnput 

until  (Ch  =  #13)  or  (Ch  =  #27); 
if  Ch  =  #27  then 
GetNumber  :=  0 
else 

GetNumber  :=  Selecteditem; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 
SetWriteMode(CopyPut); 
for  Liner  :=  1  to  18  do 
begin 

Line(391 ,227+Liner,560,227+Liner); 
end; 

for  Liner  ;=  1  to  18  do 
begin 

Line(X-73,Y+140+Liner,X+75.Y+140+Liner); 

end; 

LastSelection  :=  Selecteditem; 

KillMenu; 

Topitem  ;-'^l; 

Selecteditem  :=  1; 

Highlighteditem  ;=  1; 
end;  {NMenu. GetNumber} 

end. 
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unit  Game; 


interface 

procedure  PlayGame; 
implementation 

uses  CRT,  Graph,  Students,  Helicopt,  HpDialog,  Menus,  Help; 
type 

Name  =  String[2()]: 
var 

Counter  1,  Counter2,  Counters,  MaxTime,  MaxNum, 

PL  1  Score,  PL2Score  :  Integer; 

Score  :  String; 

Ch,  PI  :  Char; 

LeftHPT,  RightHPT  :  Helicopter; 

DialogScreen  :  array  [I. .3]  of  Dialog; 

WMenu  :  Menu; 

Helpitem  ;  Helps; 

Choice  :  Name; 

procedure  ShowScores; 
begin 

SetColor(O); 

SetWriteMode(CopyPut); 

LinedOO, 160,150,160); 

LinedOO, 162,150,162); 

Lined  00. 164, 150, 164); 

Lined00,166,150,166); 

LinedOO,168, 150,168); 

Line  (100, 170, 150, 170); 

Lined00,172,150,172); 

LinedOO,  174, 150, 174); 

LinedOO,  176, 150, 176); 

Lined  00, 178, 150, 1 78); 

Lined00,180,150,180); 

SetCoIor(12); 

Str(PL  1  Score, Score ); 

OutTextX  Y(  1 33, 1 64.Score); 

SetColor(O); 
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SetWriieMode(CopyPut); 

Line(21 0,1 60,280, 160); 

Line(210,162,280,162); 

Line(210,164,280,164); 

Line(210,166,280,166); 

Line(210,168,280,168); 

Line(210,170,280,170); 

Line(210,172,280,172); 

Line(210,174,280,174); 

Line(210,176,280,176); 

Line(210,178,280,178); 

Line(210,l80,280,180); 

SetColor(12); 

Str(PL2Score, Score); 

OutTextX  Y(243, 1 64, Score); 

SetColor(O); 

end; 

procedure  PlayOne; 
begin 

DialogScreen[21.Init(’NoGame.msg’); 

DialogScreen[2].Show(350,50); 

SetColor(l2); 

SetTextJustify(CenterText,CenterText); 

OutTextX  Y(440, 1 80,LeftHPT.HPTInfo.HelicopterName); 
SetColor(O); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[21.Hide; 

DiaIogScreen[2].Kill; 

LeftHPT.Hide; 

RightUPT.Hide; 

LeftHPT.Kill; 

RightHPT.Kill; 

PL2Score  ;=  PL2Score  +  1; 

ShowScores; 

DidlogScreen[21.Init(’Ready.msg'); 

DiaIogScreen[21.Show(350,50); 

Ch  ;=  ReadKey; 


while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[2].Hide; 

DialogScreen[2j.Kill; 

end; 

procedure  PlayTwo; 
begin 

DialogScreen[l].Init(’GScore.msg’); 

DialogScreen[  1  ].Show(72,50); 

ShowScores; 

DialogScreen[2].Init(’Ready.msg’); 

DialogScreen[2].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen{2].Hide; 

DialogScreenf2].Kill; 
for  Counterl  ;=  1  to  25  do 
begin 

Counters  :=  0; 

Counter2  :=  StudentModel.GetEntry(MaxNum); 
LeftHPT.Init(StudentModel.HPTArTay[Counter21); 
RightHPT.Init(StudentModel,HPTArray[Counter2]); 
LeftHPT.Show(72,225,.StudentModel.HPTArraylCounter2]); 
RightHPT.Show(344,225,StudentModel.HPTArray[Counter21 ); 
if  Ch  =  #27  then  Counterl  ;=  26; 

while  (UpCase(Chl  <>  ’O')  and  (UpCase(Ch)  <>  ’T')  and  (Ch  <>  #8)  do 
begin 

Counters  Counters  +  1; 
if  Counters  >  MaxTime  then 
Ch  ;=  #8; 

Delay(5); 

if  KeyPressed  then 
Ch  ;=  ReadKey; 

end; 

if  Ch  =  #27  then  Counterl  ;=  26; 
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PI  ;=  UpCase(Ch); 
if  PI  =  #8  then 
begin 

if  MaxTime  <>  1000  then 
PlayOne 
else 
begin 

LeftHPT.Hide; 

RightHPT.Hide; 

LeftHPT.Kill; 

RightHPT.Kill; 

DialogScreen[2|.Init(’TimeOut.msg’); 

DialogScreen[2|.Show(350,50); 

Ch  :=  ReadKey; 

DiaIogScreen[21.Hide; 

DialogScreen[2].Kill; 

end 

end 

else  if  (Counterl  <26)  then 
begin 

RightHPT.Hide; 

RightHPT.Kill; 
if  PI  =  ’O’  then 

DialogScrecn(2|.Init(’Play  l.msg’) 
else  DialogScreen[21.Init('PIay2.msg’); 

DialogScreen[21.Show(350,50); 

WMenu.Init(’WETFL'R.innu’); 

Choice  :=  WMenu.GetChoice; 

DialogScreen[2>  Hide; 

LeftHPT.Hide; 

DialogScreen[21.Kill; 

LeftnlT.Kill; 

if  Choice  <>  LefiHPT.HPTInfo.HelicopterName  then 
begin 

Soundi  100); 

Delay!  200); 

if  PI  =  ’O'  then  Dec(PLl Score) 
else  Dec(PL2Score); 

NoSound; 

end 

else 

begin 

if  PI  =  ’O'  then  InclPLl Score) 
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else  Inc(P12Score); 
end; 

ShowScores; 
if  Counterl  <  25  then 
begin 

DialogScreen[2].Init(’Ready.msg’); 

DialogScreen[2].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[2|.Hide; 

DialogScreen[21.Kill; 

end; 

end; 

GoToXY(l,l); 

Ch  :=  #13; 
end; 

if  FLl  Score  >  PL2Score  then 
DialogScreen[2].Init(’Winl.msg’) 
else  if  PL2Score  >  PL  1  Score  then 
DialogScreen[2].Init(’Win2.msg’) 
else  DialogScreen[21.1nit(Tie.msg’); 
DialogScreen[2].Show(350,50); 

Ch  :=  ReadKey; 

DialcgScreen[2].Hide; 

DialogScreen[2].Kill; 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
end; 

procedure  PlayGame; 
begin 

StudentModel. Update!’  ’Game’, ’Game’, 0); 

MaxNum  :=  150; 

DialogScreen[  1  ].lnit(’Game.insg’); 

DialogScreenll  l.Show{350,60); 

Ch  :=  ReadKey; 

while  (Ch  <>  T)  and  (Ch  <>  ’2’)  and  (Ch  <>  #27)  do 
begin 

if  Ch  =  ’h’  then 
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HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DiaIogScreen[l].Kill; 

PL  1  Score  :=  0; 

PL2Score  :=  0; 
if  Ch  =  #27  then  Exit 
else  if  Ch  =  ’1’  then 
begin 

Randomize; 

MaxTime  ;=  Random(25iO)  +  250; 

PlayTwo; 

end 

else  if  Ch  =  ’2’  then 
begin 

MaxTime  ;=  1000; 

PlayTwo; 

end; 

end; 

end. 
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unit  Utility; 

interface 

procedure  SetUp; 
implementation 

uses  DOS,CRT,Graph,GX_TP,PCX_TP,Students,MMenus,Menus,HpScreen,Helicopt, 
HpDialog,  Help; 

type 

Name  =  String[20]; 


var 

retcode  :  Integer; 

F  :  Text; 

TextString,  Ds  :  String; 

Counter  :  Integer; 

SetUpMenu  ;  Menu; 

SetUpMMenu  ;  Mmenu; 

DialogScreen  :  Dialog; 

StudentMenu  :  Menu; 

HPTMenu  ;  Menu; 

StudentReport  :  Screen; 

Helpitem  :  helps; 

Choice  :  Name; 

Ch  :  Char; 

procedure  GetStudents; 
var 

Dirlnfo  :  Search Rec; 
begin 

Assign(F,’ Student. rec’); 

ReWrite(F); 

Writeln(F, ’STUDENTS’); 
Writeln(F,470); 

Writeln(F,230); 

Writeln(F,13); 

FindFirst(’*.mdr.AnyFile,  Dirlnfo); 
while  DosError  =  0  do 
begin 

Writeln(F.Copy(DirInfo.Name,l  ,5)); 
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FindNext(Dirlnfo); 

end; 

Close(F); 

end; 

procedure  SelectHPT; 
var 

HPT Array  :  array  [1..1501  of  Name; 

Dirinfo  ;  SearchRec; 

F1,F2  :  Text; 

Counter  1  ;  Integer; 
retcode  :  Integer; 

HFfName  :  Name; 
begin 

SetUpMMenu.Mshowmenu(’Menu.pcx’); 
StudentModel.Mode  :=  ’SelectHPT’; 

Counter  :=  1; 

FindFirst(’*.nam’,AnyFile,  Dirinfo); 
while  DosError  =  0  do 
begin 

Assign(Fl,Concat(Copy(DirInfo.Name,l,5),’_#l.dat’)) 

Reset(Fl); 

Readln(Fl,HPTName); 

HPTArray[Counter]  :=  HPTName; 

Counter  :=  Counter  +  1; 

Close(Fl); 

FindNext(Dirlnfo); 

end; 

Assign(F,'Helicopt.rec’); 

ReWrite(F); 

Writeln(F, ’Helicopter'); 

Write!n(F,470); 

Writeln(F,242); 

\Vriteln(F,13); 

for  Counter  1  :=  1  to  Counter- 1  do 
if  HPTArrayfCounterl  I  <>  ”  then 
Writeln(F,HPTArrayfCounterl  |); 

Close(F); 

Assign(F,’HIntermd.def’); 

Assign(Fl,’WETFUR.mnu’); 

Rewrite(F); 

Rewrite(Fl); 

Writeln(F,'Intemied  default'); 
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Writeln(F,  Teach’); 

Writeln(F,’ Intermediate’); 

Writeln(F,0); 

Writeln(F,l); 

Writeln(F,0); 

Writeln(Fl,’FlELICOPTER’); 

Wnteln(Fl,470); 

'WritelnCF  1,242); 

Writeln(Fl,13); 

DialogScreen.Init(’SelHPT.msg’); 
DialogScreen.Show(72,230); 
HPTMenu.InitC’Helicopt.rec  ’); 

Choice  ;=  HPTMenu.GetChoice; 
while  Choice  <>  ’null’  do 
begin 

if  Copy(Choice,5,l)  =  ’  ’  then 
begin 

Writeln(F,Concat(Copy(Choice,l,4),’^ _ #1  ’)) 

Writeln(F,Concat(Copy(Choice,l,4),’_#2’)) 

Writeln(F,Concat(Copy(Choice,l,4),’ _ #3’)) 

end 

else 

begin 

Writeln(F,Concat(Copy(Choice,  1 ,5),’_#1  ’)); 
\Vriteln(F,Concat(Copy  (Choice,  1 ,5),’_#2’)); 
Writeln{F,Concat(Copy(Choice,l,5),’_#3’)); 
end; 

Writeln(Fl,Choicc'); 

for  Counter  1  ;=  i  '  Counter- 1  do 

if  HPTArray[ Counter  1  ]  =  Choice  then 
HPTArraylCounterl  I  :=  ’  '; 
Assign(F2,’Helicopt.rec’); 

Re\Vrite(F2); 

\Vriteln(F2, ’HELICOPTER’); 

Wnteln(F2,470); 

Writeln(F2,230); 

Writeln(F2.13); 

for  Counter  1  :=  1  to  Counter- 1  do 
if  HPTArra%  (Counter  1]  <>  ’  ’  then 
Writeln(F2,HPTArray[Counterl  ]); 
Close(F2); 

HPTMenu.Init(’Helicopt.rec’); 

Choice  :=  HPTMenu.GetChoice; 
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end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

Close(F); 

Close(Fl); 

end; 

procedure  AddHPT; 
const 

ALPHA  =  (’0’..’9’,’A’..’Z’;a’..’z’;-']; 
var 

HPTName  :  Name; 

Dirinfo  :  SearchRec; 

Counter l,Counter2  :  Integer; 

Size  ;  Word; 

P  :  Pointer; 

S  :  String; 

FileName  :  String; 

F  ;  File; 

FI  ;  Text; 

Ch  :  Char; 

Offset. MaxX,MaxY,X,Y  :  Integer; 
OldFIPT  :  Flelicopter; 

Liner  :  Integer; 
begin 

SetUpM  Menu.  Msho\vmenu( ’Menu.pcx’); 
DialogScreen.Initi ’Checkup. msg'); 
DialogScreen.Sho\v(20.*i,6n); 

Ch  :=  ReadKey; 
if  Ch  =  #27  then 
begin 
Fxit 
end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

StudentModel.Mode  :=  ’AddHPT’; 
HPTN  ame  :=  ”; 

Countcrl  :=  1; 

SetLineStyle(SolidLn,O.Thick  Width); 

Set  WriteMode  (Copy  Put); 

SetColor(13); 

DialogScreen.lnitt  'GetHPT.msg'); 
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DialogScreen.Show(205,60); 

Line(220,182,420,182); 

Line(220, 184,420, 184); 

Line(220,186,420,186); 

Line(220,188,420,188); 

Line(220,190,420,190); 

Line(220,192,420,192); 

Ch  :=  #8; 

while  ((Ch  <>  #13)  and  (Counter  1  <  21))  or  (HPTName  =  ”)  do 
begin 

SetColor(lO); 

Ch  :=  ReadKey; 
if  Ch  =  chr(32)  then 
begin 

HPTName  ;=  Concat(HPTName,chr(32)); 

Counter!  :=  Counter  1  +  1; 
end; 

if  Ch  in  ALPHA  then 
begin 

SetColor(lO); 

OutTextX  Y(225+ 1 0*Counter  1 , 1 86,Ch); 

HPTName  :=  Concat(HPTName,Ch); 

Counter  1  :=  Counter  1  +  1; 

{SetColor(lO);} 

end; 

if  (Ch  =  #8)  and  (Counterl  >  1)  then 
begin 

SetWriteMode(CopyPut); 

SetColor(13); 

Line(210+10*Counterl,182,220+10*Counterl,182); 

Line(210+10*Counterl,184,220+10*Counterl,184); 

Line(2 1 0+ 1 0*Counter  1,1 86,220+ 10*Counter  1,1 86); 

Line(2 1 0+  10*Counter  1 ,1 88,220+10*Counter  1 , 1 88); 
Line(210+10*Counterl,190,220+10*Counterl,190); 
Line(210+10*Counterl,192,220+10*Counterl,192); 
Counterl  :=  Counterl  -  1; 

HPTName  ;=  Copy(HPTName,l,Counterl-l); 

end; 

if  HPTName  =  ”  then  begin 
SetColor(12); 

SetTextJustify(CenterText,CenterText); 

OutTextXY(320,425,’File  Name  inputs  ERROR,  Try  again  !!'); 
Ch  :=  ReadKey; 
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SetWriteMode(CopyPut); 

SetColor(O); 

for  Liner  ;=  0  to  20  do 

begin 

Line(  100,41 5+Liner,540,415+Liner); 
end; 
end; 

SetColor(lO); 

end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

DialogScreen.Init(’New.msg’); 

DialogScreen.Show(72,50); 

SetColor(LightRed); 

SetTextJustify(CenterText,CenterText); 

OutTextXY(185,125,HPTName); 
if  Copy(HPTName,5,l)  =  ’  ’  then 

FindFirst(Concat(Copy(HPTName,l ,4),’_.nam’),AnyFile,  Dirlnfo) 
else  FindFirst(Concat(Copy(HPTName,l,5),’.nam’),AnyFile,  Dirlnfo); 
Size  ;=  ImageSize(0, 0,230, 150); 

GetMem(P,Size); 

GetImage(72,50,302,200,P^); 

Assign(F,Concat(Copy(HPTName,l,4),’_.nam’)) 

DialogScreen.Hide; 

DialogScreen.Kill; 

Offset  :=  140; 

MaxX  :=  639; 

MaxY  :=  219; 
for  Counterl  :=  1  to  3  do 
begin 
X  :=  0; 

Y  ;=  0; 

str(  Counter  l,s); 

if  Copy(HPTName,5,l)  =  ’  ’  then 

retcode  :=  pcxFileDisplay(Concat(Copy(HPTName,l,4),’ _ #’,s, 

’.pcx’,72,230,0) 

else 

retcode  :=  pcxFileDisplay(Concat(Copy(HPTName,l,5),’_#',s, 
’.pcx’),72,230,0); 
if  retcode  <>  gxSUCCESS  then 
begin 

DialogScreen.Init(’Nopcx.msg’); 

DialogScreen.Show(205,60); 
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Ch  ;=  ReadKey; 

DialogScreen.Hide; 

DialogScreen.Kill; 

FreeMem(P,Size); 

exit 

end 

else 

begin 

if  Copy(HPTName,5,l)  =  ’  ’  then 

Assign(F,Cor.cat(Copy(HPTName,l,4),’_.nam’)) 
else  Assign(F,Concat(Copy(HPTName,l,5),’.nam’)); 
ReWrite(F,l); 

BlockWrite(F,P^,Size), 

Close(F); 

if  Counter  =  1  then 
FreeMem(P,Size); 

{Input  the  data  for  this  view) 
if  Copy(HPTName,5,l)  =  ’  ’  then 

Assign(Fl,Concat(Copy(HPTName,l,4),’ _ #’,s,’.dat’)) 

else  Assign(Fl,Concat(Copy(HPTName,l,5),’_#’,s,’.dat’)) 
ReWrite(Fl); 

Writeln(Fl,HPTName); 

Writeln(Fl,”); 

WritelnCFl,”); 

SetUpMenu.Init(’Wing.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(Fl  .Choice); 

Str(LastSelection,s); 
if  LastSelection  <  10  then 

Writeln(Fl  ,Concat(’WingO’,s)) 
else  Writeln(Fl,Concat(’Wingr.s)); 
end 
else 
begin 

Writeln(Fl,”); 

Writeln(Fl,”); 

end; 

SetUpMenu.lnit(’Engi.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
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begin 

Writeln(Fl  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 
Writeln(Fl,Concat(’EngiO’,s)) 
else  Writeln(Fl,Concat(’Engir,s)); 
end 
else 
begin 

Writeln(Fl,”); 

Writeln(Fl,”); 

end; 

SetUpMenu.Init(’Fuse.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(F  1  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 
Writeln(Fl  .Concat(’FuseO’.s)) 
else  Writeln(Fl.Concat(’Fuser.s)); 
end 
else 
begin 

WritelnCFl.”); 

WritelnCFl,”); 

end; 

SetUpMenu.Init(’Trot.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(F  1  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 

Writeln(Fl,Concat(’TrotO’.s)) 
else  WritelnCFl .Concat(’Trotr.s)); 
end 
else 
begin 

WritelnCFl,"); 

Writeln(Fl.”); 
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end; 


SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 

for  Liner  :=  1  to  IS  do 

begin 

line(385,242+Liner,560,242+Liner); 

end; 

SetUpMenu.Init(’Mrot.mnir); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(Fl  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 

Writeln(Fl  ,Concat(’MrotO’,s)) 
else  Writeln(Fl,Concat(’Mrotl’,s)); 
end 
else 
begin 

Writeln(Fl,”); 

Writeln(Fl,”); 

end; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 

for  Liner  :=  1  to  18  do 

begin 

line(385,242+Liner,560,242+Liner); 

end; 

SetLfpMenu.Init(’Ucag.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(Fl, Choice); 

Str  (LastSelection, s); 
if  LastSelection  <  10  then 

Writeln(Fl,Concat(’UcagO’,s)) 
else  Writeln(Fl,Concat(’Ucagl ’,s)); 
end 
else 
begin 

Writeln(Fl,”); 
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Writeln(Fl,”); 

end; 

SetColor(O); 

SetLineStyle(SolidLn,O.ThickWidth); 

for  Liner  :=  to  1 8  do 

begin 

line(3J^5,242+Liner,560,242+Liner); 

end; 

SetUpMenu.Init(’Hstl.mnu’); 

Choice  :=  SeiUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 

Writeln(Fl  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 

Writeln(Fl,Concat(’HstlO’,s)) 
else  WritelnfF  1  ,Concat(’Hstir,s)); 
end 
else 
begin 

Writeln(Fl,”); 

Writeln(Fl,”); 

end; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 

for  Liner  :=  1  to  18  do 

begin 

line(385,242+Liner,560,242+Liner); 

end; 

SetUpMenu.lnit(’Hstn.mnu’); 

Choice  :=  SctUpMenu.GetChoice; 
if  Choice  <>  ’niill’  then 
begin 

Writeln(F  1  .Choice); 
Str(LastSelection,s); 
if  LastSelection  <  10  then 

Writeln(Fl,Concat(’HstnO’,s)) 
else  Writeln(Fl,Concat(’Hstnr.s)); 
end 
else 
begin 
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Writeln(Fl,”); 

Writeln(Fl,”); 

end; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 

for  Liner  :=  1  to  1 8  do 

begin 

line(385,242+Liner,560,242+Liner); 

end; 

Close(Fl); 

end; 

end; 

end; 


procedure  Report; 
begin 

SetUpMMenu.Mshowmenu( ’Menu.pcx’); 

StudentModel.Mode  :=  ’StuRep’; 

GetStudents; 

DialogScreen.Init(’StuRep.msg’); 

DialogScreen.Show(72,230); 

StudentMenu.Init(’Student.rec’); 

Choice  :=  StudentMenu.GetChoice; 
while  Choice  <>  ’null’  do 
begin 

SetUpMMenu.Mshowmenu(’Report.pcx’); 

Assign(F,Concat(Choice,’.mdr)); 

Reset(F); 

SetColor(12); 

SetTextJustify(LeftText,LeftText); 

Out  rextXY(340, 150, Choice); 
for  Counter  :=  1  to  4  do 
begin 

Readln(F,TextString); 

if  TextString  =  ’0’  then  OutTextXY(340,Counter*32+140,’Not 

Tested’) 

else  OutTextXY(340,Counter*32+140,TextString); 


end; 

SetColor(O); 

Close(F); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
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begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

ClearDevice; 

SetUpMMenu.Mshowinenu(’Menu.pcx’); 

DialogScreen.Init(’StuRep.msg’); 

DialogScreen.Show(72,230); 

GetStudents; 

StudentMenu.Init(’Student.rec’); 

Choice  :=  StudentMenu.GetChoice; 
end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

end; 

procedure  SetUp; 
const 

ALPHA  =  [’0’..’9’,’A’..’Z’,’a’..’z’,--’]; 
var 

Password  :  Name; 

Counterl  ;  Integer; 
begin 

ClearDevice; 

Password  :=  ”; 

Counterl  :=  1; 

SetLineStyle(SolidLn,0,ThickWidth); 

SetWriteMode(CopyPut); 

SetColor(13); 

DialogScreen.Init(’Passwd.msg’); 

DialogScreen.Show(205,60); 

Line(22{),l  82,420,1 82); 

Line(220,184,420,184); 

Line(220, 186,420, 186); 

Line(220,188,420,188); 

Line(220,190,420,190); 

Linef220,192,420.192); 

Ch  ;=  #8; 

while  (Ch  <>  #13)  and  (Counterl  <  21)  do 
begin 

Ch  ;=  ReadKey; 
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if  Ch  =  chr(32)  then 
begin 

Password  :=  Concat(PassWord,chr(32)); 

Counter!  :=  Counter!  +  !; 
end; 

if  Ch  in  ALPHA  then 
begin 

SetColor(!0); 

OutTextXY(225+!0*Counter!,!86,Ch); 

Password  :=  Concat(PassWord,Ch); 

Counter!  Counter!  +  !; 
end; 

if  (Ch  =  #8)  and  (Counter!  >  !)  then 
begin 

SetWriteMode(CopyPut); 

SetColor(I3); 

Line(2  !0+  !0*Counter ! , !  82,220+!0*Counter! , !  82); 
Line(2 !  0+ !  0*Counter ! , !  84,220+ !  0*Counter  1 , !  84); 
Line(2!0+!0*Counter!,!86,220+!0*Counterl,!86); 
Line(2 1 0+ !  0*Counter ! , !  88,220+!0*Counter!  ,188); 
Line(2!0+!0*Counter!,!90,220+!0*Counter!,!90); 
Line(2 !  0+ !  0*Counter ! , !  92,220+!0*Counter ! , !  92); 
Counter!  :=  Counter!  -  !; 

Password  :=  Copy(PassWord,!, Counter!-!); 
SetColor(!3); 
end; 

end; 

DialogScreen.Hide; 

DialogScreen.Kill; 
if  Password  <>  ’500313’  then 
Exit; 

StudentModel.Mode  :=  ’Setup’; 

SetUpMMenu.MInitt’SetUpI.mnu’); 

SetUpMMenu.Mshowmenu(’SetUpl.pcx’); 

Choice  :=  SetUpMMenu.MGetChoice; 
while  (Choice  <>  ’EXIT’)  and  (Choice  <>  ’null’)  do 
begin 

if  Choice  =  ’SELECT  HELICOPTER’  then 
begin 

Clear  Device; 

SelectHPT; 

end; 

if  Choice  =  ’ADDA10DIF  HELICOPTER’  then 
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begin 

ClearDevice; 

DialogScreen.Init(’Hpmsg.msg’); 

DialogScreen.Show(205,60); 

Ch  :=  ReadKey; 

DialogScreen.Hide; 

DialogScreen.Kill; 

AddHPT; 

end; 

if  Choice  =  ’STUDENT  REPORT’  then 
begin 

ClearDevice; 

Report; 

end; 

GotoXY(l,l); 

StudentModel.Mode  :=  ’Setup’; 
SetUpMMenu.MInit(’SetUpl.mnu’); 
SetUpMMenu.Mshowmenu(’SetUpl.pcx’); 
Choice  :=  SetUpMMenu.MGetChoice; 
end; 

end; 

end. 
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unit  HpTutor; 


interface 

procedure  Tutor; 
implementation 

uses  CRT,  Graph,  Students,  Helicopt,  HpDialog,  Menus,  Help,  MMenus,  NMenus; 
type 

Name  =  String[20J; 
var 

Counter  1,  Counter2,  Counters,  MaxNum,  ChoiceNum,  Score  :  Integer; 
Comparison  ;  Real; 

Ch  :  Char; 

LeftHPT,  RightHPT  :  Helicopter; 

DialogScreen  :  array  [1..5]  of  Dialog; 

WMenu  ;  Menu; 

WNMenu  ;  NMenu; 

Mainmenu  ;  Mmenu; 

Helpitem  :  Helps; 

StuName,  Choice,  FourthCh  :  Name; 

CorrectAnswer,  CloseAnswer,  Done,  Dialog_Kill  :  Boolean; 

S  :  String[20]; 

Liner  ;  Integer; 

Num_s  :  StringfS); 

Tptrl,Tptr2,Tptr3,Tptr4,Tptr5  :  Pointer; 

C  :  Integer; 

procedure  ShowFeature(Feature  :  Name); 
begin 

if  Feature  <>  ”  then 
begin 

DialogScreen[41.Init(Concat(Feature,’.msg')); 

Di;'.logScreen[4|.Show(350,230); 

Ch  :=  ReadKey; 

Dialog_Kill  :=  False; 
while  (Ch  =  ’h’)  do 
begin 

if  StudentModel. Level  =  ’Novice’  then 
begin 
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DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill, 

DialogScreen[4].Hide; 

DialogScreen[4].Kill; 

Dialog_Kill  :=  True; 

HeipItem.GetHelp; 

Ch  #8; 
end; 

if  StudentModel. Level  =  ’Intermediate’  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  l].Kill; 

DialogScreen[4J.Hide; 

DialogScreen[4].Kill; 

Dialog_Kill  ;=  True; 

DialogScreen(2i,Hide; 

DialogScreen[21.Kill; 

HeipItem.GetHelp; 

Ch  :=  #8; 

DialogScreen[  2 1.  Init(Concat(Copy 

(StudentModel. HPTArraylCounterl  1.1  ..S).’.nam’)); 
DialogScreen[21.Show(72,50); 
end; 

Ch  :=  #8; 
end; 

if  not  Dialog_Kil!  then 
begin 

DialogScreen[4|.Hide; 

DialogScreen[4].Kill; 

end; 

end; 

end; 

function  CompareHelicopter  ;  Real; 
begin 

Compari.son  :=  0; 

Counter3  ;=  0; 

for  Counter2  :=  1  to  1  do 

i'  (LeftHPT.HPTInfo.\Vings[Counter2|  <>  ”)  and 
(RightHPT.HPTlnfo.Wings[Counter2|  <>  ”)  then 

if  LeftHPT.HPTInfo.WingsfCounter2|  =  RightHPT.HPTInfo.Wings|Counter2| 

then 

begin 
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Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  G-eftHPT.HPTInfo.Engine[Counter2]  <>  ”)  and 
(RightHPT.HPTInfo.Engine[Counter2]  <>  ”)  then 
if  LeftHPT.HPTInfo.Engine[Counter2]  = 

RightHPT.HPTInfo.Engine[Counter2]  then 

begin 

Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Fuslag[Counter2]  <>  ”)  and 
(RightHPT.HPTInfo.Fuslag[Counter2]  <>  ”)  then 

if  LeftHPT.HPTInfo.Fuslag[Counter2]  =  RightHPT.HPTlnfo.Fuslag[Counter21 
then 
begin 

Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Trot[Counter21  <>  ”)  and 
(RightHPT.HPTInfo.Trot[Counter2]  <>  ”)  then 

if  LeftHPT.HPTInfo.TrotfCounter2|  =  RightHPT.HPTInfo.Trot[Counter21  then 
begin 

Comparison  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Mrot[Counter2]  <>  ”)  and 
(RightHPT.HPTInfo.Mrot[Counier2)  <>  ”)  then 

if  LeftHPT.HPTInfo.Mrot[Counter21  =  RightHPT.HPTlnfo.Mrot|Counter2] 
then 

begin 

Comparison  ;=  Comparison  +  1; 
lnc(Counter3); 

end 

else  Inc(Counter3); 
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for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Ucag[Counter2]  <>  ”)  and 
(RighlHPT.HPTInfo.Ucag[Counter2]  <>  ”)  then 

if  LeftHPT.HPTInfo.Ucag[Counter2]  =  RightHPT.HPTInfo.Ucag[Counter2] 
then 
begin 

Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Hstl[Counter2]  <>  ”)  and 
(RightHPT.HPTInfo.Hstl[Counter2]  <>  ”)  then 

if  LeftHPT.HPTInfo.Hstl[Counter2]  =  RightHPT.HPTInfo.Hstl[Counter2]  then 
begin 

Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Hstn[Counter2]  <>  ”)  and 
(RightHPT.HPTInfo.Hstn[Counter2]  <>  ”)  then 

if  LeftHPT.H.PTInfo.Hstn[Counter2]  =  RightHPT.HPTlnfo.Hstn[Counter2]  then 
begin 

Comparison  :=  Comparison  +  1; 

Inc(Counter3); 

end 

else  Inc(Counter3); 
if  Counter3  <>  0  then 

CompareHelicopter  :=  Comparison/Counter3; 

end; 

procedure  Diagnose; 
const 

ALPHA  =  rA’..’Z\’a’.,’z’]; 
begin 

StudentModel.Mode  ;=  ’Diagnose’; 

StuN’ame  ;=  ”; 

Counterl  ;=  1; 

Setl.ineStyIe(Solidln.O,ThickWidth); 

SctWriteMode(CopyPut); 

SctColorl  1 3); 

DialogScreen[  1  ].lnit(’GetName.msg’); 
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DialogScreen[l].Show(205,60); 

SelLineStyle(Solidln,0,ThickWidth); 

Line(220, 162,420, 162); 

Line(220,165,420,165); 

Line(220,168,420,168); 

Line(220,17 1,420, 171); 

Line(220,174,420,174); 
while  (Ch  <>  #13)  and  (Counter!  <  21)  do 
begin 

SetColor(lO); 

Ch  :=  ReadKey; 
if  Ch  =  chr(32)  then 
begin 

StuName  :=  Concat(StuName,chr(32)); 

Counter  1  :=  Counterl  +  1; 
end; 

if  Ch  in  ALPHA  then 
begin 

SetColor(lO); 

OutTextXY(220+10*Counterl,166,Ch); 

StuName  :=  Concat(StuName,Ch); 

Counterl  :=  Counterl  +  1; 

SetColor(13); 

end; 

if  (Ch  =  #8)  and  (Counterl  >  1)  then 
begin 

SetWriteMode(CopyPut); 

SetColor(13); 

Line(2 1 0+ 1 0*Counter  1 , 1 62,220+ 1 0*Counter  1 ,162); 
Line(2 10+ 1 0*Counter  1 , 1 65,220+ 1 0*Counterl  ,165); 
Line(2 10+ 10*Counter  1,1 68,220+1 0*Counterl,  168); 
Line(2 10+ 1 0*Counter  1 ,171 ,220+ 1 0*Counter  1 ,171); 
Line(2 1 0+ 10*Counter  1,1 74,220+ 10*Counter  1,1 74); 
Counterl  :=  Counterl  -  1; 

StuName  Copy(StuName,  1, Counterl -1); 

SetColor(13); 
end; 

end; 

DialogScreen[  Ij.Hide; 

DialogScreen[  1  ].Ki]l; 

SetColor(O); 

StudentModel  Update(StuName, Teach’, ’Novice’,0); 
StudentModel.Mode  ’Diagnose’; 
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MaxNum  ;=  75; 

Counter3  :=  0; 

DialogScreen[l].Init(’Welcome.msg’); 

DialogScreen[l].Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[  1  ]  .Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[l].Init(’Diagnose.msg’); 

DialogScreen[l].Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[  1  J.Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 
for  Counter2  :=  1  to  10  do 
begin 

Counterl  ;=  StudentModel.GetEntry(MaxNum); 
if  StudentModel.HPTArray[Counterl]  <>  ”  then 
begin 

LeftHPT.Init(StudentModel.HPTArray[Counterll); 
if  LeftHPT.HPTInfo.ExampleInfo  <>  ”  then 
begin 

LeftHPT.Show(72,225,StudentModel.HPTArTay  [Counterl]); 
\VNMenu.lnit(Concat(Copy(LeftHPT.HPTlnfo.Examplelnfo, 
l,4),’.mnu’)); 

Str(WNmenu.GetNumber,Num_s); 

Num_s  :=  Concat(’0’,Num_s); 

Choice  :=  (Concat(Copy(LeftHPT.HPTInfo.ExampleInfo,l,4), 
Num_s)); 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidth); 
for  Liner  :=  1  to  18  do 
begin 
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Line(39 1 ,242+Liner,560,242+Liner); 
end; 

if  Choice  =  ’null’  then 
begin 

LeftHPT.Hide; 

LeftHPT.Kill; 

Counters  :=  Counters  +  1; 

Exit; 

end; 

if  Choice  <>  LeftHPT.HPTInfo.ExampleInfo  then 
begin 

Counters  ;=  Counters  +  1; 

Sound(lOO); 

Delay(200); 

NoSound; 

end; 

LeftHPT.Hide; 

end; 

LeftHPT.Kill; 

end; 

GoToXY(l,l); 

end; 

if  Counters  <=  1  then 
begin 

StudentModel.Update(StuName, ’Teach’, ’lntermediate’,0); 
end 
else 
begin 

StudentModel.Update(StuName, ’Teach’, ’Novice’, 0); 
end; 

end; 


procedure  Teach; 
begin 

Ch  :=  #1S; 

if  StudentModel. Level  =  ’Novice’  then 
MaxNum  :=  75 
else  MaxNum  :=  150; 
if  StudentModel. Level  =  ’Novice’  then 
DialogScreen[  1  ].Init(’TeaNov.msg’) 
else  DialogScreenf  1  J.Init(’Tealnt.msg’); 
DialogScreen[  1  ].Show(205,60); 
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Ch  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[  1  ].Kill; 
if  Ch  =  #27  then  Exit; 

for  Counterl  :=  StudentModel.NumShown  to  MaxNum  do 
if  StudentModel. Level  =  ’Novice’  then 
begin 

if  StudentModel. HPTArray[Counterl]  <>  ”  then 
begin 

LeftHPT.InitCStudentModel.HPTArray  [Counterl]); 
if  LeftHPT.HPTInfo.ExampleInfo  <>  ”  then 
begin 

LeftHPT.Show(72,225,StudentModel.HPTArray  [Counterl]); 
ShowFeature(LeftHPT.HPTInfo.ExampleInfo); 

LeftHPT.Hide; 

end; 

LeftHPT.Kill; 

if  Ch  =  #27  then  Exit; 

Inc(StudentModel.NumShown); 

end; 

end 

else 

begin 

if  StudentModel. HPTArray[Counterl]  <>  ”  then 
begin 

LeftHPT.Init(StudentModel.HPTArray[Counterl]); 
LeftHPT.Show(72,225,StudentModel.HPTArray[  Counterl]); 
DialogScreen[2].Init(Concat(Copy 

(S  tudentModel.HPTArray  [Counter  1],1 ,3),’. nam')) 
DialogScreen[2].Show(70,50); 
for  Counter2  ;=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTInfo.WingsInfo[Counter2]); 
for  Counter2  :=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTInfo.EngineInfo[Counter2]); 
for  Counter2  ;=  1  to  1  do 
if  Ch  <>  #27  then 
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ShowFeature(LeftHPT.HPTInfo.FuslagInfo[Counter2]); 
for  Counter2  :=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTlnfo.TrotInfo[Counter2]); 
for  Counter2  :=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTInfo.MrotInfo[Counter2]); 
for  Counter2  :=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTlnfo.UcagInfo[Counter2]); 
for  Counter2  :=  1  to  1  do 
if  Ch  <>  #27  then 

ShowFeature(LeftHPT.HPTInfo.Hstnlnfo[Counter2)); 
for  Counter2  ;=  1  to  1  do 
if  Ch  <>  #27  then 

ShovvFeature(LeftHPT.HPTInfo.HstIInfo[Counter21); 

DialogScreen[2].Hide; 

LeftHPT.Hide; 

DialogScreen[2].Kill; 

LeftHPT.Kill; 

if  Ch  =  #27  then  Exit; 

Inc(StudentModel.NumShown); 

end; 

end; 

StudentModel.NumShown  :=  MaxNum; 

end; 

procedure  ReviewNovice; 
begin 

MaxNum  ;=  75; 

Done  :=  False; 

DialogScreen[l].Init( ’Return. msg’); 

DiaIogScreen[  1  J.Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreenf  l].Hide; 

DialogScreenf  1  ].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[  1  ].Init(’RevNov.msg’); 
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DialogScreen[l].Show(205,60); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 

Counter!  :=  StudentModel.GetEntry(MaxNum); 
while  (Counter!  <>  0)  and  (Done  =  False)  do 
begin 

LeftHPT.Init(StudentModel.HPTArTay[Counter!]); 
if  LeftHPT.HPTInfo.Examplelnfo  <>  ”  then 
begin 

LeftHPT.Show(72,225,StudentModel.HPTArray  [Counter!]); 

WNMenu.Init(Concat(Copy(LeftHPT.HPT!nfo.Examplelnfo,!,4),’.mnu’)); 

Str(WNmenu.GetNumber,Num_s); 

Num_s  :=  Concat(’0’,Num_s); 

Choice  :=  (Concat(Copy(LeftHPT.HPTInfo.ExampleInfo,!,4),Num_s)); 
SetColor(O); 

SetLineStyIe(SolidLn,0,ThickWidth); 
for  Liner  :=  1  to  !8  do 
begin 

Line(39 !  ,242+Liner,560,242+Liner); 
end; 

if  Choice  =  LeftHPT.HPTInfo.Examplelnfo  then 
begin 

StudentModel.HPTArrayfCounter!]  :=  ”; 

DialogScreen[ !  |.Init(Concat(’Correct’,Chr(Random(!0)+48),’.msg’)); 
DialogScreenf !  |.Show(35(),50); 

Ch  :=  ReadKey; 
while  Ch  =  'h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[ !  [.Hide; 

DialogScreen[  1  [.Kill; 
end 

else  if  Choice  <>  ’null’  then 
begin 


if  StudentModel.AddEntry(StudentModel.HPTArray[Counterl], 
MaxNum)  =  False  then 
Done  :=  True; 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[l].Show(350,50); 
ShowFeature(LeftHPT.HPTInfo.Examplelnfo); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[ll.Hide; 

DialogScreen[l].Kill; 

end; 

Ch  :=  ReadKey; 
end; 

LeftHPT.Hide; 

end 

else  StudentModel.HPTArrayfCounterl  J  :=  ”; 

LeftHPT.Kill; 

if  (Ch  =  #27)  or  (Choice  =  ’null’)  then  Exit; 

Counter!  :=  StudentModel.GetEntry(MaxNum); 

end; 

Done  ;=  True; 
end; 

procedure  Reviewintermediate; 

procedure  HandleCorrectlntemiediate; 
begin 

SetColor(14); 

Dialog_Kiil  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 

DialogScreen[  1  ].Show(350,5()); 

DialogScreen[2J.Init(Concat(Copy(StudentModel.HPTArray[Counterl],l,5),’.nam’)); 

DialogScreen[2].Show(72,50); 

StudentModel.HPTArray[Counterl]  ;=  ”; 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

DialogScreenf  1  J.Hide: 

DialogScreen[  l].Kill; 

Dialog_Ki]l  ;=  True; 

Helpltem.GetHelp; 
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Ch  :=  ReadKey; 
end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

DialogScreen[  1  j.Hide; 

DialogScreen[  Ij.Kill; 
end; 

end; 

procedure  HandleWronglntetmediate; 
begin 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 

DialogScreen[l].Shovv(350,50); 

Ch  :=  Readkey; 
if  Ch  =  ’h’  then 
Helpltem.GetHelp; 

DialogScreen[lJ.Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[l].Init(’IdWEFT.msg’); 

DialogScreen[l].Show(350,50); 

DialogScreen[2].Init(Concat(Copy(StudentModel.HPTAiTay[Counterl],],5),’.nam 

DialogScreen[2J.Show(72,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 

Dialog_Kill  :=  True; 

DialogScreen[21.Hide; 

DialogScreen[2|.Kill; 

Helpltem.GetHelp; 

Ch  :=  ’  ’; 

DialogScreen[2].Init(Concat(Copy(StudentModel.HPTArray[Counterl],l,3), 

’.nam’)); 

DialogScreen[2].Show(72,50); 

end; 

if  not  DiaIog_KilI  then 
begin 

DialogScreen[  1  j.Hide; 

DialogScreen[  1  ].Kill; 


end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Wings[Counter2]  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.WingsInfo[Counter2],l,4), 

’.mnu’)); 

Choice  :=  WMenu.GetChoice; 
if  Choice  =  LeftHPT.HPTInfo.Wings[Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 

Dialog_Kiil  :=  True; 

DialogScreen[21.Hide; 

DialogScreen[2].Kill; 

HelpItem.GetHelp; 

Ch  :=  ’  ’; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArrayfCounter  1  ],  1 ,5),  ’.nam  ’)); 
DialogScreen[21.Show(72,50); 
end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  ;=  False; 

DialogScreenf  l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 
ShowFeature(LeftFLPT.HPTInfo.WingsInfo[Counter2]); 
if  not  Dialog_Kill  then 
begin 

DialogScreenf  1  ].Hide; 

DialogScreenf  1  ].Kill; 
end; 
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end 

else  Ch  :=  #27; 

end; 

for  Counter2  ;=  1  to  1  do 

if  (LeftHPT.HPTInfo.Engine[Counter2J  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.EngineInfo[Counter2],l,4), 

’.mnu’)); 

Choice  ;=  WMenu.GetChoice; 
if  Choice  =  LeftHPT.HPTInfo.Engine[Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[l].Hide; 

DialogScreen[  1  ].Kill; 

Dialog_Kill  :=  True; 

DialogScreen[2j.Hide; 

DialogScreen[2].Kill; 

HelpItem.GetHelp; 

Ch  :=  ’  ’; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArray[Counterl],l,5),’.nam’)); 

DialogScreen[2].Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  J.Hide; 

DialogScreen[  1  J.Kill; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[  1  ].Init(Concat(’ Wrong’, Chr(Random(10)+48),’.msg’)) 
DialogScreen[  1  ].Show(350,50); 

ShowFeature(LeftHPT.HPTInfo.EngineInfo[Counter2J); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  l.Hide; 
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DialogScreen[l].Kill; 

end; 

end 

else  Ch  ;=  #27; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Fuslag[Counter2]  <>  ”)  and  (Ch  <>  #27)  then 
begin 

Dialog_Kill  :=  False; 

WMenu.Init(Concat(Copy(LeftHPT.HPlInfo.FuslagInfo[Counter2],l,4), 

’.mnu’)); 

Choice  :=  WMenu.GetChoice; 

if  Choice  =  LeftHPT.HPTlnfo.Fuslag[Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)), 
DialogScreen[  1  ].Show(350,50); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[  IJ.Hide; 

DialogScreen[  1  (.Kill; 

Dialog_Kill  :=  True; 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

HelpItem.GetHelp; 

Ch  :=  ’  ’; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArray[Counterl],l,3),’.nam’)); 

DialogScreenf2].Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  J.Hide; 

DialogScreen[  1  ].Kill; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[  l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen(  1  ].Show(350,50); 

ShowFeature(LeftHPT.HPTInfo.FuslaglnfolCounter2]); 
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if  not  Dialog„Kill  then 
begin 

DialogScreen[  1  l.Hide; 

DialogScreen[  1  ].Kill; 
end; 

end 

else  Ch  :=  #27; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInro.Trot[Counter21  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.TrotInfo[Counter2),l,4), 

’.mnu’)); 

Choice  :=  WMenu.GetChoice; 

SetColor(O); 

SetLineStyle(SolidLn,(),ThickWidth); 
for  Liner  :=  1  to  18  do 
begin 

Line(391 ,242+Liner,56(),242+Liner); 
end; 

if  Choice  =  LeftHPT.HPTInfo.Trot(Counter2|  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen(  1  l.Init(Concat(’Correct’,Chr(Random(iO)+48),’.msg')) 
DialogScreen[  1  |.Show(350,5()); 

Ch  :=  ReadKey; 
while  Ch  =  ’h'  do 
begin 

DialogScreen[  1  l.Hide; 

DialogScreen[  1  {.Kill; 

Dialog_Kill  True; 

DialogScreenl  2  l.Hide; 

DialogScreen[2|.Kill; 

Helpltem.Getl  Iclp; 

Ch  :=  ’ 

DialogScreenl  2  ].Init(Concat(Copy( 

StudentModel.HPTArrayi  Counter  1  ],l,5),'.nanT)); 
DialogScreenl  2 1.  Show(72, 50); 
end; 

if  not  Dialogs  Kill  then 
begin 

DialogScreenl  1  |.Hide; 

DialogScreenl  1  |.Ki!l; 
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end; 


end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concai(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 
ShowFeature(LeftHPT.HPTInfo.TrotInfofCounter2]); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ]  .Hide; 

DialogScreen[  Ij.Kill; 
end; 
end 

else  Ch  :=  #27; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Mrot[Counter2]  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.MrotInfo[Counter2],l,4), 

’.mnu’)); 

Choice  :=  WMenu  GetChoice; 

SetColor(O); 

SetLineStyIe(SoIidLn,0, Thick  Width); 
for  Liner  :=  1  to  18  do 
begin 

Line(39 1 ,242+Liner,560,242+Liner); 
end; 

if  Choice  =  LeftHPT.HPTInfo.Mrot(Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  J.Kill; 

Dialog_Kill  :=  True; 

DialogScreenf2].Hide; 

DialogScreen[2].Kill; 

HelpItem.GetHelp; 

Ch  ;=  ’  ’; 


118 


DialogScreen[21.Init(Concat(Copy( 

StudentModel.HPTArray[Counterl|,l,5),’.nam’)); 

DialogScreen[21.Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScrcen[  1  ].Kill; 
end; 

end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 
ShowFeature(LeftHPT.HPTInfo.MrotInfo[Counter2]); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
end; 
end 

else  Ch  :=  #27; 

end; 

for  Counter2  :=  I  to  1  do 

if  (:LeftHPT.HPTInfo.Ucag[Counter2]  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTlnfo.Ucaglnfo[Counter2],l,4), 

’.mnu’)); 

Choice  :=  WMenu.GetChoice; 

SetColor(O); 

SetLineStyle(SolidLn,(),ThickWidth); 
for  Liner  :=  1  to  18  do 
begin 

Line(39 1 ,242+Liner,560,242+Liner); 
end; 

if  Choice  =  LeftHPT.HPTlnfo.UcaglCounter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[  1  ].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
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begin 

DialogScreen[  1  J.Hide; 

DialogScreen[l].KilI; 

Dialog_Kill  :=  True; 

DialogScreen[2].Hide; 

DiaIogScreen[2].KiIl; 

HelpItem.GetHelp; 

Ch  :=  ’ 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArray[Counterl],l,5),’.nam’)); 

DialogScreen[2].Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_KiIl  :=  False; 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)) 
DialogScreen[  1  ].Show(350,50); 

ShowFeature(LeftHPT.HPTInfo.UcagInfo[Counter2]); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  l.Kill; 
end; 

end 

else  Ch  :=  #27; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LefiHPT.HPTlnfo.Hstl[Counter2]  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.HstIInfo[Counter2],I,4), 

’.mnu’)); 

Choice  ;=  WMenii.GetChoice; 

SetColor(O); 

SetLineStyle(SolidLn,0,ThickWidih); 
for  Liner  ;=  1  to  18  do 
begin 

Line(39 1 ,242+Liner,560,242+Liner); 
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end; 

if  Choice  =  LeftHPT.HPTInfo.Hstl[Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 

DialogScreen[l].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[l].Hide; 

DialogScreen[l].Kill; 

Dialog_Kill  :=  True; 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

HelpItem.GetHelp; 

Ch  ;=  ’  ’; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTAiTay[Counterl],l,5) 

,’.nam’)); 

DialogScreen[2].Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreenf  1  J.Kill; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[lJ.Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[ll.Show(350,50); 
ShowFeature(LeftHPT.HPTInfo.Hstllnfo[Counter2]); 
if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
end; 
end 

else  Ch  :=  #27; 

end; 

for  Counter2  ;=  1  to  1  do 

if  (LeftHPT.HPTlnfo.Hstn[Counter21  <>  ”)  and  (Ch  <>  #27)  then 
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if  (LeftHPT.HPTInfo.Hstn[Counter21  <>  ”)  and  (Ch  <>  #27)  then 
begin 

WMenu.Init(Concat(Copy(LeftHPT.HPTInfo.HstnInfo[Counter2),l,4), 

’.mnu’)); 

Choice  :=  WMenu.GetChoice; 

SetColor(O); 

SetLineStyle(SolidLn,0,Thic!cWidth); 
for  Liner  ;=  1  to  18  do 
begin 

Line(391,242+Liner,560,242+Liner); 

end; 

if  Choice  =  LeftHPT.HPTInfo.Hstn[Counter2]  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 

DialogScreen[l].Show(350,50); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 

Dialog_Kill  :=  True; 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

HelpItem.GeiHelp; 

Ch  :=  ’  ’; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArray[Counterl],l,5),’.nam’)); 

DialogScreen[2],Show(72,50); 

end; 

if  not  Dialog_Kill  then 
begin 

DialogScreen[  1  ].Hide; 

DialogScreen(  1  ].KiIl; 
end; 
end 

else  if  Choice  <>  ’null’  then 
begin 

Dialog_Kill  :=  False; 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.msg’)); 
DialogScreen[l].Show(350,50); 
ShowFeature(LeftHPT.HPTInfo.HstnInfo[Counter2]); 
if  not  Dialog_Kill  then 


begin 

DialogScreen[  1  ].Hide; 

DialogScreen[  1 
end; 
end 

else  Ch  ;=  #27; 

end; 

DialogScreen[21.Hide; 

DialogScre:''i[2].Kill; 

end; 

procedure  HandleCloseIntermediate; 
begin 

SetColor(14); 

if  Copy(Choice,5,l)  =  ’  ’  then 

RightHPT.Show(344,225,Concat(Copy(Choice,l,4),’_’, 

Copy(StudentModel.HPTArray[Counterl].6,3))) 

else 

RightHPT.Show(344,225,Concat(Copy(Choice,  1 ,5), 

Copy(StudentModel.HPTArray[Counterl],6,3))); 

DialogScreen[l].Init(’Close.msg’); 

DialogScreen[l  ].Show(205,60); 

Ch  :=  Readkey; 
if  Ch  =  ’h’  then 
HelpItem.GetHelp; 

DialogScreen[l].Hide; 

DialogScreen[  1 1.Kill; 
if  Ch  =  #27  then 
Exit; 

DialogScreenf  1  ].Init(’Compare.msg’); 

DialogScreen[  1  ].Show(205.60); 

Ch  :=  ReadKey; 

DialogScreenf  1  ].Hide; 

DialogScreenf2J.Init(Concat(Copy(StiidentModel.HPTArray[CounterI  J,  l,5).'.nani')); 
if  Copy(Choice,5,l)  =  '  ’  then 

DialogScreenf  3].  Init(Concat(Copy(Choice,  1, 4), ’_’,'.nam’)) 
else  DialogScreenf 3]. Init(Concat(Copy(Choice,l, 5), ’.nam’)); 

DialogScreenf  2]. Show(72, 50); 

DialogScreenf  3], Show(350, 50); 

Ch  :=  ReadKey; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.\VingsfCounter2|  <>  ”)  and  (Ch  <>  #27)  and 
(RightnPT.HPTlnfo.VVingsfCounter2j  <>  ")  then 


RightHPT.HPTInfo.Wings[Countcr2]  then 
begin 

DialogScreen[4].Init(Concat(LeftHPT.HPTInfo.WingsInfo[Counter2], 

’.msg’)); 

DialogScreen[5].Init(Concat(RightHPT.HPTInfo.WingsInfo[Counter2], 

’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreen[5].Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[5].Hide; 

DialogScreen[4].Hide; 

DialogScreen[5].Kill; 

DialogScreen[4]  .Kill; 
end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Engine[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Engine[Counter2]  <>  ”)  then 
if  LeftHPT.HPTInfo.Engine[Counter2]  <> 
RightHPT.HPTlnfo.Engine[Counter2]  then 
begin 

DialogScreen[4].Init(Concat(LeftHPT.HPTInfo.EngineInfo[Counter2], 

’.msg’)); 

DialogScreen[5].Init(Concat(RightHPT.HPTInfo.EngineInfo[ 

Counter21,’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreen[5].Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[51.Hide; 

DialogScreen[41.Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Fuslag[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT,HPTInfo.Fuslag[Counter2]  <>  ”)  then 
if  LefiF[PT.HPTInfo.FusIag[Counter2]  <> 
RightHPT.HPTlnfo.Fuslag[Counter2]  then 
begin 

DialogScreen[4].Init(Concat( 

LeftFlPT.HPnnfo.Fuslaglnfo[Counter2],’.msg’)); 

DialogScreen[5].Init(Concat( 

RighLHPT.FlPTInfo.FuslagInfo[Counter2],’.msg’)); 
DialogScreen[4].Show(  10,30); 


124 


RightHPT.HPTInfo.FuslagInfo[Counter2],’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreen[5].Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[5].Hide; 

DialogScreen[4].Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Trot[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Trot[Counter2]  <>  ”)  then 
if  LeftHPT.HPTInfo.Trot[Counter2]  <> 
RightHPT.HPTInfo.Trot[Counter2]  then 
begin 

DialogScreenf4].Init(Concai( 

LeftHPT.HPTInfo.TrotInfo[Counter2],’.msg’)); 

DialogScreen[5].Init(Concat( 

RightHPT.HPTInfo.TrotInfo[Counter2],’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreen[5].Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[5].Hide; 

DialogScreen[4|.Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Mrot[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Mrot[Counter2l  <>  ”)  then 
if  LeftHPT.HPTInfo.Mrot[Counter2]  <> 
RightHPT.HPTInfo.Mrot[Counter2J  then 
begin 

DialogScreen[41.Init(Concat( 

LeftHPT.HPTlnfo.Mrotlnfo[Counter2],’.msg’)); 

DialogScreen[31.Init(Concai( 

RightHPT.HPTInfo.MrotInfo[Counter2],’.msg’)); 
DialogScreen[4].Show(  10.30); 
DialogScreen[5I.Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[5].Hide; 

DialogScreen[4J.Hide; 

DialogScreen[5|.Kill; 


DialogScreen[4].Kill; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LeftHPT.HPTInfo.Ucag[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Ucag[Counter21  <>  ”)  then 
if  LeftHPT.HPTlnfo.Ucag[Counter2]  <> 
RightHPT.HPTInfo.Ucag[Counter2]  then 
begin 

DialogScreen[4].Init(Concat( 

LeftHPT.HPTInfo.UcagInfo[Counter2],’.msg’)); 

DialogScreen[5].Init(Concat( 

RightHPT.HPTInfo.UcagInfo[Counter2],’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreen[5J.Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[51.Hide; 

DialogScreen[4].Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 

end; 

for  Counter2  :=  1  to  1  do 

if  (LefiHPT.HPTInfo.Hstl[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Hstl[Counter2]  <>  ”)  then 
if  UftHPT.HPTInfo.Hsil[Counter2]  <> 
RightHPT.HPTInfo.Hstl[Counter2]  then 
begin 

DialogScreen[4].Init(Concat( 

LeftHPT.HPTInfo.HstlInfoiCounter2],’.msg’)); 

DialogScreen(5].Init(Concat( 

RightHPT.HPTInfo.Hstllnfo[Counter2],’.msg’)); 
DialogScreen[4].Show(  10,30); 
DialogScreen[51.Show(430,30); 

Ch  :=  ReadKey; 

DialogScreen[5].Hide; 

DialogScreen[4].Hide; 

DialogScreen[‘i|.KilI; 

DialogScreenf41.Kill; 

end; 

for  Counter2  ;=  1  to  1  do 

if  (LeftHPT.HPTInfo.Hstn[Counter2]  <>  ”)  and  (Ch  <>  #27)  and 
(RightHPT.HPTInfo.Hstn(Counter2]  <>  ”)  then 
if  LeftHPT.HPTInfo.Hstn[Counter2]  <> 
RightHPT.HPTInfo.Hstn[Countcr2|  then 


begin 

DialogScreen[4].Init(Concat( 

LeftHPT.HPTInfo.HstnInfo[Counter2];.msg’)); 

DialogScreen[5].Init(Concat( 

RightHPT.HPTInfo.HstnInfo[Counter2],’.msg’)); 

DialogScreen[4].Show(10,30); 

DialogScreenf5].Show(430,30); 

Ch  ;=  ReadKey; 

DiaIogScreen[5].Hide; 

DialogScreen[4].Hide; 

DialogScreen[5].Kill; 

DialogScreen[4].Kill; 

end; 

DialogScreenf  1  J.Kill; 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

DialogScreen[31.Hide; 

DialogScreen[31.Kill; 

RightHPT.Hide; 

end; 

begin  { Reviewlntermediate} 

MaxNum  ;=  150; 

Ch  :=  #13; 

Done  :=  False; 

DialogScreen[  1  l.Init(’Retum.msg'); 

DialogScreen[  1  l.Show(205,60); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[  1  [.Hide; 

DiaIogScreen[  1  [.Kill; 
if  Ch  =  #27  then  Exit: 

DialogScreen[  1  ].Init(’RevInt.msg’); 

DialogScreenl  1  ].Shovv(205,60); 

Ch  -^ReadKey; 
while  Ch  =  'h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
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end; 

DialogScreen[l].Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 

Counter!  :=  StudentModel.GetEntry(MaxNum); 
while  (Counter!  <>  0)  and  (Done  =  False)  do 
begin 

LeftHPT.Init(StudentModel.HPTArray[Counter!]); 

WMenu.Init(’WETFUR.mnu’); 

CorrectAnswer  ;=  False; 

CloseAnswer  :=  False; 

LeftHPT.Show(72,225,StudentModel.HPTArray[Counterl]); 

Choice  ;=  WMenu.GetChoice; 
if  Choice  =  ’null’  then 
begin 

LeftFIPT.Hide; 

LeftHPT.Kill; 

Exit; 

end; 

if  Copy(Choice,l,5)  = 

Copy(LeftHPT.HPTInfo.HelicopterName,l,5)  then 
HandleCorrectIntermediate 
else 
begin 

if  Copy(Choice,5,l)  =  ’  ’  then 

RightHPT.Init(Concat(Copy(Choice,l,4),’_’, 

Copy(StudentModel.HPTArray[Counterl],6,3))) 

else 

RightHPT.lnit(Concat(Copy(Choice,l,5), 

Copy(StudentModel.HPTArray[Counter  11,6,3))); 
if  CompareHelicopter  >=  0.7  then 
begin 

HandleCloseIntermediate; 

RightHPT.Hide; 

RightHPT.Kill; 

end 

else 

begin 

HandleWronglntermediate; 
if  StudentModel.AddEntr>'( 

StudentModel.HPTArrayfCounterl  ],MaxNum)  =  False  then 
Done  :=  Tnie; 


end; 


end; 

GoToXY(l,l); 

LeftHPT.Hide; 

LeftHPT.Kill; 

if  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 

end; 

Done  ;=  True; 
end; 

procedure  ReviewExpert; 
var 

Feature  :  array  [1..16]  of  Name; 
begin 

MaxNum  :=  150; 

Ch  #13; 

Done  :=  False; 

DialogScreen[  1  ].Init(’Retum.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[  1  ].Init(’RevExp.msg’); 

DialogScreen[  1 1.Show(205,6()); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ].Kill; 
if  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
while  (Counterl  <>  0)  and  (Done  =  False)  do 
begin 

Dialog_Kill  ;=  False; 
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Counters  :=  1; 

LeftHPT.Init(StudentModel.HPTAiTay[Counterl]); 

WMenu.Init(’WETFUR.mnu’); 

for  Counter2  ;=  1  to  1  do 

if  LeftHPT.HPTInfo.WingsInfo[Counter2J  <>  ”  then 
begin 

Feature[Counter3]  ;=  LeftHPT.HPTlnfo.WingsInfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.FngineInfo[Counter2]  <>  ”  then 
begin 

Feature[CounterS]  ;=  LeftHPT.HPTInfo.FngineInfo[Counter2J; 

Counters  :=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.FuslagInfo[Counter2]  <>  ”  then 
begin 

Feature[CounterS]  :=  LeftHPT.HPTInfo.Fuslaglnfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.TrotInfo[Counter2]  <>  ”  then 
begin 

Feature[CounterS]  :=  LeftHPT.HPTInfo.TrotlnfolCounter2]; 

Counters  ;=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LefiHPT.HPrinfo.MrotInfo[Counter2]  <>  ”  tl  en 
begin 

Feature[CounterS]  :=  LeftHPT.HPTInfo,Mrotlnfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftFIPT.HPTInfo.Ucaglnfo[Countcr2]  <>  ”  then 
begin 

Feature[CounterS]  :=  LeftHPT.HPTInfo.UcagInfo[Counter2]; 

Counters  ;=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.HstlInfo[Counter2]  <>  ”  then 
begin 

Featiiref Counters)  :=  LeftHPT.HPTlnfo.HstnInfofCounter2]; 
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Counter3  :=  Counter?  +  1; 
end; 

for  Counter2  ;=  1  to  1  do 

if  LeftHPT.HPTInfo.HstnInfo[Counter2]  <>  ”  then 
begin 

Feature[Counter3!  :=  LeftHPT.H*^TInfo.HstlInfo[Counter2]; 
Counter?  :=  Counter?  +  1; 
end; 

Counter2  ;=  1; 

Ch  ;=  #8; 

while  Ch  <>  #1?  do 
begin 

ShowFeature(Feature[Counter2I); 
if  (Ch  =  and  (Counter2  >  1)  then 
Counter2  ;=  Counter?  -  1 
else  if  (Ch  =  and  (Counter?  =  1)  then 
Counter?  ;=  Counter?  -  1 

else  if  (Ch  =  ’+')  and  (Counter?  <  Counter?  -  1)  then 
Counter?  ;=  Counter?  +  1 

else  if  (Ch  =  ’+’)  and  (Counter?  =  Counter?  -  1)  then 
Counter?  :=  1 
else  if  Ch  =  #27  then  Exit 
else 
begin 

Sound(440); 

Delay(?0()); 

NoSound; 

end; 

end; 

Choice  :=  WMenu.GetChoice; 
if  Choice  =  ’null’  then 
Exit; 

DiaIogScreen[?l.Init(Concat(Copy( 

StudentModel.FiPTArraylCounterl  J,l,5),’.nam’)); 
LeftHPT.Show(7?.??5,StudentModel.HPTArray[Counter]J); 
DialogScreen[?].Shovv(7?.?()); 

if  Copy(Choice,l,5)  =  Copy(LeflHPT.HPTInfo.HelicopterName,l,5)  then 
begin 

DialogScrcen[  1  l.Init(Concat(’Correct’,Chr(Random(10)+48),’.msg’)); 
DiaIogScreen[  1  ].Sho'v(?30.5()); 

Ch  :=  Read  Key; 
while  Ch  =  ’h’  do 
begin 
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DialogScreen[  IJ.Hide; 

DialogScreen[l].Kill; 

Dialog_Kill  ;=  True; 

DialogScreen[2].Hide; 

DialogScree^riJ.Kill; 

HelpItem.GetHelp; 

Ch  :=  #8; 

DialogScreen[2].Init(Concat(Copy( 

StudentModel.HPTArray[Counterl],l,5),’.nam’)); 

DialogScreen[2].Show(72,50); 

Ch  :=  ReadKey; 
end; 

if  not  Dialog_Kill  then 
begin 

DiaIogScreen[  1  J.Hide; 

DialogScreen[  1  J.Kill; 
end; 

StudentModel.HPTArray[Counterl]  :=  ”; 
end 
else 
begin 

DialogScreen[l].Init(Concat(’Wrong’,Chr(Random(10)+48),’.ms 
DialogScreen[  1  ].Show(350,50); 

Ch  :=  ReadKey; 
if  Copy(Choice,5,l)  =  ’  ’  then 
begin 

RightHPT.Init(Concat(Copy(Choice,l,4),’_’, 

Copy(StudentModel.HPTAiTay[Counterl],6,3))); 

DialogScreen[3].Init(Concat(Copy(Choice,l,4),’_’,’.nam’)); 

RightHPT.Show(344,225,Concat(Copy(Choice,l,4),’_’, 

Copy(StudentModel.HPTArray[Counterl],6,3))); 

end 

else 

begin 

RightHPT.Init(Concat(Copy(Choice,  1 ,5), 

Copy(StudentModel.HPTArray[Counter  11,6,3))); 

DialogScreen[3].Init(Concat(Copy(Choice,l,5),’.nam’)); 

RightHPT.Show(344,225,Concat(Copy(Choice,l,5), 

Copy(StudentModel.HPTArray[Counterl  1,6,3))); 

end; 

DiaIogScreen[  1  ].Hide; 

DialogScreenf  1 1. Kill; 

DialogScreen[31.Show(35(),50); 


Ch  :=  ReadKey; 

DialogScreen[3J.Hide; 

DialogScreen[3].Kill; 

RightHPT.Hide; 

RightHPT.Kill; 
if  StudentModel.AddEntryC 

StudentModel.HPTArray[Counterl],MaxNum)  =  False  then 
Done  :=  True; 

end; 

GoToXY(l,l); 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

LeftHPT.Hide; 

LeftHPT.Kill; 

if  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GeiEntry(MaxNum); 

end; 

Done  ;=  True; 
end; 

procedure  Testintermediate; 
begin 

Ch  :=  #13; 

Done  :=  False; 

MaxNum  :=  150; 

DialogScreen[  1  ].Init(’Retum.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  ;=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen(l].Hide; 

DialogScreenf  l].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreenf  l].Init(TestInt.msg’); 

DialogScreenf  l].Show(205, 60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
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end; 

DialogScreen[l].Hide; 

DialogScreen[  1  ]  .Kill; 
if  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
while  Counterl  <>  0  do 
begin 

if  StudentModel.HPTArray[Counterl]  <>  ”  then 
begin 

LeftHPT.Init(StudentModel.HPTArray[Counterl]); 

LeftHPT.Show(72,225,StudentModel.HPTArray[Counterl]); 

WMenu.Init(’WETFUR.mnu’); 

Choice  ;=  WMenu.GetChoice; 
if  Choice  =  ’null’  then 
begin 

LeftHPT.Hide; 

LeftHPT.Kill; 

Exit; 

end; 

if  Choice  <>  LeftHPT.HPTInfo.HelicopterName  then 
begin 

Inc(StudentModel.NumMissed); 

Sound(lOO); 

Delay(200); 

NoSound; 

end; 

Inc(StudentModel.NumShown); 

LeftHPT.Hide; 

LeftHPT.Kill; 

end; 

GoToXY(Ll); 

StudentModel.HPTArray[Counterl)  :=  ”; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
end; 

Done  :=  True; 
end; 

procedure  TestExpert; 
var 

Feature  :  array  [1..16]  of  Name; 
begin 

MaxNum  :=  150; 

Ch  ;=  #13; 
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Done  :=  False; 

DialogScreen[l].Init(’Retum.msg’); 

DialogScreen[l].Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[l].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[l].Init(’TestExp.msg’); 

DialogScreen[l].Show(205,60); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[l].Hide; 

DialogScreen[  1  ].Kill; 
if  Ch  =  #27  then  Exit; 

Counter  I  :=  StudentModei.GetEntry(MaxNum); 
while  Counterl  <>  0  do 
begin 

if  StudentModel.HPTArray(Counterl]  <>  ”  then 
begin 

LeftHPT.InitCStudentModel.HPTArrayfCounterl]); 

WMenu.Init(’WETFUR.mnu’); 

Counter3  ;=  1; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.Wingslnfo[Counter2]  <>  ”  then 
begin 

Feature[Counter3]  :=  LeftHPT.HPTInfo.WingsInfo[Counier2]; 
Counter3  :=  Counter3  +  I; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.EngineInfo[Counter2]  <>  ”  then 
begin 

Feature[Counter3]  :=  LeftHPT.HPTInfo.EngineInfo[Counter2]; 
Counter3  :=  Counter3  +  1; 
end; 


for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.Fuslaglnfo[Counter21  <>  ”  then 
begin 

Feature[Counter3]  :=  LeftHPT.HPTlnfo.FuslagInfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  UftHPT.HPTInfo.Trotlnfo{Counter21  <>  ”  then 
begin 

Feature[CounterSl  :=  LeftHPT.HPTInfo.TrotInfo[Counter2]; 

Counters  ;=  Counters  +  1; 
end; 

for  Counter2  :=  1  to  1  do 

if  LeftHPT.HPTInfo.MrotInfo[Counter2]  <>  ”  then 
begin 

Feature! Counters]  ;=  LeftHPT.HPTInfo.Mrotlnfo!Counter2|; 

Counters  :=  Counters  +  1; 
end; 

for  Counters  :=  1  to  1  do 

if  LeftHPT.HPTInfo.UcagInfo[Counter2]  <>  "  then 
begin 

Feature[CounterS]  :=  LeftHPT.HPTInfo.UcagInfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counters  :=  1  to  1  do 

if  LeftHPT.HPTInfo.HstnInfo[Counter2]  <>  ”  then 
begin 

Feature[CounterS]  ;=  LeftHPT.HPTInfo.HstnInfo[Counter2]; 

Counters  :=  Counters  +  1; 
end; 

for  Counters  :=  1  to  1  do 

if  UftHPT.HPTInfo.HstllnfolCounterS]  <>  ”  then 
begin 

Feature[CounterSl  :=  LeftHPT.HPTInfo.Hstllnfo[Counter2]; 

Counters  ;=  Counters  +  1; 
end; 

Counters  :=  1; 

Ch  :=  #8; 

while  Ch  <>  #1S  do 
begin 

ShowFeature(Feature|Counter2]); 
if  (Ch  =  and  (Counters  >  1)  then 
Counters  :=  Counters  -  1 
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else  if  (Ch  =  and  (Counter!  =  1)  then 
Counter!  :=  Counters  -  1 

else  if  (Ch  =  ’+’)  and  (Counter!  <  Counters  -  1)  then 
Counter!  :=  Counter!  +  1 

else  if  (Ch  =  ’+’)  and  (Counter!  =  Counters  -  1)  then 
Counter!  :=  1 
else  if  Ch  =  #!7  then  Exit 
else 
begin 

Sound(440); 

Delay(!00); 

NoSound; 

end; 

end; 

Choice  :=  WMenu.GetChoice; 
if  Choice  =  ’null’  then 
Exit; 

LeftHPT.Show(7!,!!5,StudentModel.HPTArray[Counterl]); 
if  Choice  <>  LeftHPT.HPTInfo.HelicopterName  then 
begin 

Inc(StudentModel.NumMissed); 

Sound(lOO); 

Delay(!00); 

NoSound; 

end; 

Inc(StudentModel.NumSho\vn); 

Ch  :=  ReadKey; 
while  Ch  =  ’h’  do 
begin 

HelpItem.GetHelp; 

Ch  :=  ReadKey; 
end; 

LeftHPT.Hide; 

LeftHPT.Kill; 

if  Ch  =  #!7  then  Exit; 

GoToXY(l,l); 

StudentModel.HPTArray[Counterl]  :=  ”; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 

end; 

end; 

Done  :=  True; 
end; 
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procedure  EvaluateStudent; 

var  F  ;  Text; 

begin 

if  (StudentModel.Mode  =  ’Teach’)  and 

(StudentModel.NumShown  >=  MaxNum)  then 
begin 

StudentModel.Update(StudentModel.StudentName, ’Review’, 
StudentModel.Level,StudentModel.TestScore); 
DialogScreen[l].Init(’ Advance  l.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 

DialogScreen[l].Hide; 

DialogScreen[  1  ].Kill; 
end 

else  if  (StudentModel.Mode  =  ’Review’)  and  (Done  =  True)  then 
begin 

if  StudentModel.GetEntry(MaxNum  +  150)  =  0  then 
begin 

if  StudentModel. Level  =  ’Novice’  then 
begin 

StudentModel. Update(StudentModel.StudentName, ’Teach’, 
’Intermediate’, StudentModel. TestScore); 
DialogScreen[l].Init(’Advance2.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 

DialogScreen[  1  ].Hide; 

DialogScreenf  1  l.Kill; 
end 
else 
begin 

StudentModel. Update(StudentModel.StudentName, ’Test’, 
StudentModel. Level, StudentModel. TestScore); 
DiaIogScreen[  1  l.Init(’Advancel  .msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  ;=  ReadKey; 

DialogScreenf  1  [.Hide; 

DialogScreen[  1  ].Kill; 
end 
end 
else 

for  Counter  1  :=  1  to  MaxNum  do 
begin 
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StudentModel.HPTArray[Counterl]  := 
StudentModel.MissedArray[Counterl]; 

StudentModel.MissedArTay[Counterl] 
StudentModel.NumShown  :=  1; 
StudentModel.NumMissed  :=  0; 
end 
end 

else  if  (StudentModel.Mode  =  Test’)  and  (Done  =  True)  then 
begin 

if  StudentModel.NumMissed  =  0  then 
begin 

if  StudentModel. Level  =  ’Expert’  then 
begin 

Assign(F,’HallFame.rec’); 

Append(F); 

Writeln(F, StudentModel. StudentName); 

Close(F); 

StudentModel. Kill 
end 
else 
begin 

DialogScreen[  1  ].Init(’Great.msg’); 

DialogScreen[  1  ].Show(205,60); 

StudentModel. Update(StudentModel.  StudentName, 
’Review’, ’Expert’,  100); 

Ch  :=  ReadKey; 

DialogScreen[  1  ].Hide; 

DialogScreenf  1  ].Kill; 
end 
end 
else 
begin 

Score:=  Round(  100*(  1-StudentModel.NumMissed/ 
StudentModel.NumShown- 1 )))); 
DialogScreenf  1  ].Init(’Score.msg’); 

DialogScreenf  1  ].Show(205,60); 

SetColor(12); 

OutTextXY(315,160,Chr(Score  div  10  +  48)); 
OutTextXY(325,160,Chr(Score  mod  10  +  48)); 
SetColor(O); 

Ch  :=  ReadKey; 

DialogScreenf  1  f  .Hide; 

DialogScreenf  1  f.Kill; 
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if  Score  >=  90  then 
begin 

if  StudentModel. Level  =  ’Expert’  then 
begin 

DialogScreen[  1  ].Init(’Outst.msg’); 

DiaIogScreen(  1  ].Show(205,60); 
StudentModel.Update(StudentModel.StudentName, 

’Test’, ’Expert’, Score); 

Ch  :=  ReadKey; 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  j.Kill; 
end 
else 
begin 

DialogScreen[  1  ].lnit(’Good.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 

DialogScreen[  1  ].Hide; 

DialogScreen[  1  ]  .Kill; 
if  StudentModel. Level  =  ’Novice’  then 

StudentModel.Update(StudentModel.StudentName, ’Teach’, 
’Intermediate’,Score) 

else  StudentModel. Update(StudentModel.StudentName, Review’, 
’Expert’,Score); 
end 


end 

else  if  Score  >=  80  then 
begin 

DialogScreen[  1  ].Init(’Fair.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  ;=  ReadKey; 

DialogScreen[  1  J.Hide; 

DialogScreenf  1  ].Kill; 

StudentModel. Update(StudentModel.StudentName, ’Test', 
StudentModel. LeveI,Score); 
end 

else  if  Score  >=  70  then 
begin 

DialogScreen.r  l].Init(’Poor.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 

DialogScreenf  1  ].Hide; 

DialogScreen[  1  J.Kill; 


\ 
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StudentModel.Update(StudentModel.StudentName, ’Review’, 
StudeniModel.Level,Score); 
end 
else 
begin 

DialogScreenf  1  l.Init(’Fail.msg’); 

DialogScreen[  1  ].Show(205,60); 

Ch  :=  ReadKey; 

DiaIogScreen[  1  J.Hide; 

DialogScreen[ll.Kili; 
if  StudeniModel. Level  =  ’Expert’  then 

StudentModel.Update(StudentModel.StudentName, ’Review’, 
’Intermediate’, Score) 

else  StudentModel.Update(StudentModel.StudentName,’Review’, 
’Novice’, Score); 

end; 

end; 

end; 

end; 

procedure  Tutor; 
begin  {tutor} 

if  not  StudentModel.Get  then 
Diagnose; 

Ch 

while  UpCase(Ch)  =  ’C’  do 
begin 

SetColor(12); 

SetTextJustify(CenterText,CenterText); 

OutTextXY(320,425,Concat(StudentModel. Mode, ’/’,StudentModel. Level)); 
if  StudentModel. Level  =  ’Novice’  then 
begin 

if  StudentModel. Mode  =  ’Teach’  then  Teach 
else  if  StudentModel. Mode  =  ’Review’  then  ReviewNovice; 
end 

else  if  StudentModel. Level  =  ’Intermediate’  then 
begin 

if  StudentModel. Mode  =  ’Teach’  then  Teach 
else  if  StudentModel. Mode  =  ’Review’  then 
Reviewintermediate 

else  if  StudentModel. Mode  =  ’Test’  then 
Testintermediate; 
end 
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else  if  StudentModel. Level  =  ’Expen’  then 
begin 

if  StudentModel. Mode  =  ’Review’  then 
ReviewExpen 

else  if  StudentModel. Mode  =  ’Test’  then 
TestExpen; 

end; 

SetColor(O); 

SetTextJustify(CenterText,CenterText); 

OutTextXY(320,425,Concat(StudentModel.Mode,’/’,StudentModel.Level)); 

EvaluateStudent; 

DialogScreen[  1  ].Init(’Contin.msg’); 

DialogScreen[l].Show(220,75); 

Ch  :=  ReadKey; 

DialogScreen[  1  l.Hide; 

DialogScreen[  l].Kill; 
end; 

StudentModel. Save; 

Mainmenu.Mlnit(’main.mnu’); 
end;  {tutor} 

end. 
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APPENDIX  C  -  HELICOPTER  IMAGES 


AH-1  HueyCobra 


AH-64A  Apache 


Wings:  in  stub  form 
Engine;  single  turboshaft 
Horizontal  Stabilizer; 

mid-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings;  in  stub  form 
Engine:  single  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  Single 
Tail  Rotor  Placement: 
external 
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Bell  47G2 


Bell  212 


Wings:  no 

Engine:  single  piston 
Horizontal  Stabilizer: 

end-rnounted  on  tail  boom 
and  full 

Fuselage:  open  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  single  turboshaft 
Horizontal  Stabilizer: 

mid-mounted  on  tail  boom 
and  full 

Fuselage;  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 
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Wings:  no 

Engine:  twin  tiirbosliaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fail  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

no  horizontal  stabilizer 
Fuselage:  no  tail  boom 
Undercarriage;  wheeled 
Main  Rotor:  twin 
Tail  Rotor  Placement; 
no  tail  rotor 


Wings:  in  stub  form 
Engine:  twin  tiirboshaft 
Horizontal  Stabilizer: 
mounted  on  vertical 
stabilizer  and  half 
Fuselage:  fair  tail  boom 
Undercarriage:  retractable 
Tail  Rotor  Placement: 
externaln 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer; 

no  horizontal  stabilizer 
Fuselage:  no  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  twin 
Tail  Rotor  Placement: 
no  tail  rotor 


H-2  Seasprite 


Mi-2  Hoplite 


y 


Wings:  in  stub  form 
Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  retractable 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 
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Mi-4  Hound 


Mi-6  Hook 


i 


Wings:  no 

Engine:  single  piston 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


TT 


Wings:  in  stub  form 
Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


« 
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Mi-8  Hip 


Mi-24  Hind 


Wings:  in  stub  form 
Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

mid-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  in  stub  form 
Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  retractable 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 
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OH-58  Kiowa 


S-58T 


Wings:  no 

Engine:  single  turboshaft 
Horizontal  Stabilizer: 

mid-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  single  turboshaft 
Horizontal  Stabilizer: 
mounted  on  vertical 
stabilizer  and  full 
Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 
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SA316 


SA321 


Wings:  no 

Engine:  single  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercaniage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  in  stub  form 
Engine:  three  turboshaft 
Horizontal  Stabilizer: 
mounted  on  vertical 
stabilizer  and  half 
Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


SA341 


SA330  Puma 


^ _  1 


_ 1 

Wings;  no 

Engine:  single  turbosliaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
Fuselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement; 
inside  tail  boom 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  half 

Undercarriage:  retractable 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


\ 
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Sikorskv  S 11-311 


TH-55  Osage 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 
mounted  on  vertical 
stabilizer  and  half 
Fuselage:  fair  tail  boom 
Undercarriage:  retractable 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  single  piston 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  half 

Fuselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


UH-60  Black  Hawk 


Wings:  no 

Engine:  twin  tiirhoshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

friiselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Westland  Lynx 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 
mounted  on  vertical 
stabilizer  and  half 
Fuselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Westland  Scout 


HASl 


r 


I  1 

(3  ® 


Wings:  no 

Engine:  single  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

F-uselage:  fair  tail  boom 
Undercarriage:  skid 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 


Wings:  no 

Engine:  twin  turboshaft 
Horizontal  Stabilizer: 

end-mounted  on  tail  boom 
and  full 

Fuselage:  fair  tail  boom 
Undercarriage:  wheeled 
Main  Rotor:  single 
Tail  Rotor  Placement: 
external 
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